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ABSTRACT 

* 



AH INVESTIGATION 0? DESTROYER MIDSHIP SECTIOi! 
DESIGN WITH VARYING LONGITUDINAL AND V/EB FRAME SPACING 



by 

Robert Oliver Dulin, Jr. 



Submitted to the Department of Naval Architecture and 
Marine Engineering on Kay 19 > 1967, in partial fulfillment 
of the requirements for the .Master of Science degree in 
Naval Architecture and Karine Engineering and the Professional 
degree, Naval Engineer. 

The attractive possibility of minimizing ordering, 
handling, and warehousing problems by employing uniform lon- 
gitudinal scantlings and constant plating thicknesses through- 
out the midship section led to the decision to carry out an 
investigation of such a design methodology. The design tech- 
/ nique proved to be feasible, but less economical than con- 
ventional techniques of midship section design. 

A computer tool for the systematic variation of longi- 
tudinal intervals has been developed and is now ready to be 
applied to midship section design vi th varying structural 
materials and different plating thicknesses and longitudinal 
scantlings. 




Thesis Supervisor: J. Harvey Evans 

Title: Professor of Naval Architecture 
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I . INTRODUCTION 



"The quest for least weight, lowest cost, optimal ship 
structures has long been hampered by the lack of reliable 
quantitative data in adequate amount. And the problem has, 
so far, proven only partially susceptible to closed form 
solution. In no real sense, therefore, has it been possible 
to weigh the relative merits of ne\r materials of construction, 
for example, or variations of frame spacing , different com- 
binations of framing systems or alterations of principal 
dimensions (should they too be of interest) [jQ (Smphasis 
added) 

The midship section design of longitudinally framed war- 
ships has long been carried out on she basis of a constant 
spacing of the longitudinal structural stiffeners, with 
varying stresses and loadings being accounted for by the 
variation- of plating thicknesses and longitudinal scantlings. 

This conventional procedure has resulted in the de- 
velopment of designs of adequate strength, but the goal of 
the optimum least weight, lowest cost ship structural design 
has proved to be an elusive one. 

Current design techniques, although effective, add to 
the cost of ship construction by the price penalties involved 
in the procurement of a diversity of plates and shapes. 



complicated 
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Similarly, parts handling and inventory control is 
and rendered more difficult and expensive. These problems 
and deficiencies resulting from conventional midship section 
design procedures suggested the novel approach which is the 
subject of this investigation. 

Fundamentally, in an evaluation of an extreme variation 
from current procedures, this modified design methodology 
generates a design with a uniform plating thickness through- 
out, with a uniform longitudinal scantling (exclusive of the 
keel) similarly selected. Variations in loading are compen- 
sated for by different intervals between longitudinals through- 
out the midship section. 

In order to permit a reasonable inference as to the 
relative merits of this modified design methodology, the 
FORREST bHERKAII (DD-931) class destroyer midship section nas 
been taken as a model for comparative purposes. 
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11 • PROCEDURE 

For purposes of consistency with the techniques used in 
the original design of the FORREST SHSRI-1AN , the design pro- 
cedured elucidated in hi , have been used throughout this in- 
vestigation, modified as necessary. The same basic stress 
criteria have been used, with the maximum primary compressive 
stresses on DD-93i specified as design limiting values. As 
for the FORREST SHERI IAN, high tensile steel (HTS) has been 
used throughout the midship section. 

The calculations required for this investigation hove 
been carried out almost exclusively by a series of computer 
programs and subroutines, explained in detail in the Appendix. 

Input data, including the plating molded offsets, are 
generated for eventual use in the main design program, ROUS CORE, 
and the main costing program, COSTDA'TA. Existing plates and 
scantlings were used throughout the investigation in order to 
permit a realistic evaluation of costs and structural char- 
acteristics. Actual costing criteria in use at the Boston 
Haval Shipyard were employed in conjunction with current 
Federal parts costing information. 

Once the input information has been determined, the de- 
tailed design process is carried out. First, given the trans- 
verse frame spacing and the minimum tolerable longitudinal 



spacing, the least possible plating thickness is calculated, 
and the resultant permissible longitudinal separation com- 
puted. 

This permissible separation is applied at the keel, 
thereby locating the longitudinal adjacent to the keel. The 
permissible span to the next longitudinal and the required 
longitudinal are then determined. This computation is re- 
peated until the deck-shell intersection is reached. At 
this tine, the spacings are reduced if necessary to assure 
the existence of at least the minimum permissible spacing 
between the last shell longitudinal and the deck edge. 

The deck longitudinals are located in a like manner. 

The arrangement is required to be symmetrical about the 
centerline, with either a longitudinal at the centerline 
or che centerline exactly at mid-span between longitudinals. 
If necessary, the interval between the deck longitudinals 
is reduced. 

After all the midship section longitudinals have been 
located, the required scantlings at each location are cal- 
culated. The heaviest of these is then selected for use 
throughout the midship section. 

With the plating thickness selected, longitudinals 
located and scantlings determined, the overall midship 
section characteristics are calculated. The maximum pri- 
mary compressive stresses at the keel and deck centerline 
are determined, using the hull girder bending moments that 



cr 



were calculated for the FOHItDST bICRKAN. 

Should either of the calculated stresses exceed the 
comparable values actually existing on the DD-931 as built, 
the plating thickness is increased and the entire cycle is 
repeated with larger longitudinal spacings inevitably re- 
sulting. If the stresses are acceptable, the calculation is 
terminated. 

The costing procedure evaluates the expense, per foot 
length, of building the midship section. 1'ost of the charges 
are based on an arbitrary cost of $7 .50 per man-hour (K-H) 
of work. This charge includes shipyard overhead expenses. 
Government price data is used to determine the acquisition 
costs for structural materials. 

The weight and cost of the modified design is then 
compared with similarly-calculated values for the DD-931 <~.s 



built 



Ill . RESULTS 



Two basic series of midship section design calculations 
were carried out by main program RUNS CORE. The first of 
these computed designs with the minimum acceptable interval 
between longitudinals fixed at 1.667 feet, while the trans- 
verse frame spacing varied from 6 to 8 to 10 feet. The 
second series calculated designs for a transverse frame 
spacing fixed at 8 feet with the interval between longi- 
tudinals stipulated to be a minimum of either 1.667, 2.000, 
or 2.333 feet. 

Hot surprisingly, the midship section designs developed 
with constant plating thicknesses and uniform longitudinal 
scantlings proved to be consistently heavier and, for less 
apparent reasons, which are discussed in the following 
section, more expensive to build. 

The results of the calculations for different trans- 
verse frame intervals are presented in Table I, as well as 
similar data for the FORREST SHERMAN as built. Figure I 



shows a schematic plan of the DD -931 midship section as built, 
while Figure II shows a schematic for the mid strip section 
design resulting from a transverse frame spacing of 8 feet 
with a minimum specified longitudinal interval of 1.667 feet. 
Ilote the heavy plating, heavy longitudinals, and great in- 



heavy longitudinals 
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tervals between longitudinals in the new midship section 
design. Table I also provides detailed cost data for the 
three new designs as well as the original DD-931? using 
identical reference data for all four cases. 

Detailed information as to the location of longitudinals 
and the intervals between longitudinals is provided in Table 
II, which delineates the designs developed by the first series 
of computations . 

The second series of computer runs revealed this design 
methodology to be very insensitive to the specification of 
minimum tolerable intervals between longitudinals, with the 
exception of the minor effects caused by possible adjustments 
for the deck-shell intersection of the deck centerline cri- 
teria for longitudinal intervals. As a consequence, the 
designs for all intents and purposes were identical regard- 
less of the specified minimum intervals between longitudinals. 



\ 
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TABLE I 



MIDSHIP SECTION DESIGNS 
WEIGHT AND COST SUMMARIES 



DESIGN: 


New Study 


New Study 


New Study 


DD-931 










(As Built) 


FRK (Ft.) 


6.00 


8.00 


10.00 


8.00 


THL (In.) 


o.75 


0.75 


o.75 


(Varies) 



WEIGHTS (Pounds per foot hull length) 



TOTAL: 


47.56.6 


4716.7 


4748.0 


3591.0 


Plating 
Lon gi tills. 
Tr. Framing 


3354.0 

505.3 

377.2 


3354.0 

505.3 

357.4 


3854.0 

548.5 

3^5.5 


2724.5 

509.1 

357.4 


COSTS 


(Per foot 


hull length) 






TOTAL: $ 


1568.01 


$ 1471.73 $ 1417.65 


$ 1344.41 


Plating 

Longitnls. 

Keel 

Tr. Framing 


464.97 
66 . 30 ' 
27.56 
bob. 96 


466.61 

66.30 

27.56 

303.72 


464.97 
70.20 
27.56 

242.98 


336.98 
70. 50 
27.56 
303.72 


PI. Welding 
PI. Cutting 
PI. Rolling 


298.64 

2.02 

23.40 


301.33 

2.70 

23.40 


298.64 

2.02 

23.40 


256.67 

0.00" 

19.18 


L. Welding 
FI. Cutting 


113.50 

17.85 


113.50 

17.85 


120.18 

18.90 


142.50 

28.50 


Rigging 


148 . 80 


148.80 


148.80 


148.80 



_ o _ 

/ 




FIGURE I 

THE ORIGINAL DD-931 MIDSHIP SECTION DESIGN [ 5 ] 
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FIGURE II 

MODIFIED DD-931 MIDSHIP SECTION DESIGN 
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TABL5 II 

MIDSHIP SECTION DESIGNS 
STRUCTURAL DESCRIPTION 



Frame Soacing (Ft.) 


6.00 


8.00 


10.00 


Plating Thickness (In.) 


0.75 


0.75 


0.75 


STRUCTURAL CHARACTERISTICS 






Keel Stress (Tons/In. ^) 


7.43 


7.43 


7.43 


Deck Stress (Tons/In. ) 


4.58 


4.59 


4.45 


Moment of Inertia 142,120 


142,105 


143,819 


(In. Ft. ) 








N. A. above Base Line 


14.26 


14.25 


14 . 46 


(Ft.) 








Keel Longitudinal 


24 ” x 


12 ” X 100 # 


I-T 


Other Longitudinals 


1C” x 


7" x 40# 


I-T 


INTERVALS BETV/EEN LONGITUDINALS* (Feet) 


f 




4.717 


4.717 


4.717 




4.730 


4.751 


4.751 




4.888 


4.852 


4.852 




5.157 


5.110 


5.110 




5.837 


5.724 


5.724 




7.295 


6.935 


6.934 


Deck-Shell Intersection 


7.931 


8.516 


8.517 




9.831 


9.079 


8.687 




6.822 


6.777 


6 . 500 




5.717** 


6 . 514 ** 


6.350 








O. 833 *** 


*The first interval 


begins at 


the keel. 


' 


**A longitudinal lies 


on the deck centerline. 


* '‘The deck centerline 


lies raid' 1 . 


'ay between 


two longitu- 



dinals. 



TABLE III 



TYPICAL DESIGN SUMMARY* 



PLATE 


TOTAL 


KEEL 


MOM. OF 


LONGITUDINALS 


THICKNESS 


WEIGHT 


STRESS 


INERTIA 


NO. SCANTLING 


Inches 


Pounds 


Tons/In 2 


In . 2 Ft . 2 





0.28125 


2655.9 13.47 76,183 54 

Stresses are excessive, design 


8x5.4x20 

repeated. 


0.3125 


2709.5 13.38 77,391 48 

Stresses are excessive, design 


10 x 5 . 8 x 21 

repeated. 


0.34375 


2731.9 12.95 79,760 42 

Stresses are excessive, design 


10 x 5 . 8 x 21 

repeated. 


0.375 


2898.4 12.43 83,690 39 

Stresses are excessive, design 


10 x 5 . 8 x 21 

repeated. 


0.4375 


3131.4 11.45 91,387 33 

Stresses are excessive, design 


10 x 5 . 8 x 21 

repeated. 


0. 500 


3393.8 10.52 100,012 29 

Stresses are excessive, design 


10x5.3x21 

repeated. 


0.625 


3918.8 9.03 117,352 23 

Stresses are excessive, design 


12 x 4 xl 6 . 5 
repeated. 


0.750 


4716.7 7.43 142,105 17 

Design acceptable, calculation: 


l 6 x 7 x40 
: terminated. 



*Main program RUNS CORE computation for transverse 
frame spacing of 8.0 feet, specified minimum 
longitudinal interval of 1.667 feet. 
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IV. CONCLUSIONS AND RECOMSKDATIOrlS 

The midship section design of a longitudinally-framed 
warship with uniform longitudinal scantlings and constant 
plating thicknesses has been shown to be feasible. 

Table I on page 8 vividly shows that the major contri- 
butor to the poor relative performance of this design metho- 
dology in terms of both weight and cost was the shell plat- 
ing. Much of the added material near the neutral amis and 
on the deck (relative to the DD-931 ns built) was very in- 
efficiently applied, as is evident in the low stress levels 
existing in the deck structure of the new designs. Similar- 
ly, the cost of welding and fabrication of the shell plating 
was materially increased by the presence of the heavier 
plating throughout the girth of the midship section. 

There appears to be a distinct reduction in cost per 
unit length as the interval between transverse frames is 
increased. This is apparently the consequence of the appli- 
cation of the cost of this framing to the overall structural 
cost. The cost per foot length of the transverse framing 
varies markedly as the interval between the frames is in- 
creased. Similarly, the weight of the transverse framing per 
foot hull length reduces as the interval between the frames 
is increased, although to a much smaller degree than the 
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cost varies. 

No distinct trends in total weight per unit length trere 
apparent in tills investigation. The major factor leading to 
variations in weight was the number of longitudinals required, 
as both the selected plating thickness and longitudinal scant- 
ling were identical for all three cases examined in detail. 

Unfortunately, no information was available to permit 
a reasonable estimation of the savings to be realized by the 
volume acquisition of identical structural members. This 
economy, along with the reduced handling and storage costs, 
should be incorporated in any such analysis as this, but is 
very doubtful that these savings would be of such magnitude 
as to offset the disparities existing between the new designs 
and the costs of ' consturction of the original DD-931 midship 
section design. 

> 

The traditional design concept of varying plating 
thicknesses and longitudinal scantlings is a sound one. This 
approach promises to be even more valuable when incorporated 
with the techniques developed in this investigation for the 
variation of the intervals between longitudinals. Further- 
more, the use of different structural materials should be 
investigated in detail. Very frequently stability criteria 
dictate the plating thicknesses required when using high 
strength steels such as HY-80. The variation of longitudi- 
nal intervals would permit the use of much thinner plates in 
heavily stressed areas without the problems of plate stability 
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otherwise to be encountered. Appreciable weight economies 
should be realized from the superposition of the technique 
of variation of longitudinal intervals with the use of 
different structural materials while varying plating thick- 
nesses and longitudinal scantlings. 

The design of a midship section with a single plating 

thickness throughout and uniform longitudinal scantlings 

; 

proved to be workable but less efficient than conventional 
techniques. The basic idea of varying longitudinal intervals 
is sound, and detailed studies of variations on this basic 
idea should be carried out. 



APPENDIX 



PRO GRAM DO GIT. SI TTATIOK 



The structural and cost calculations for the nidship 
section design were generated by a series of computer 
programs and subroutines, listed below, which are described 
and explained in detail on the following pages. A program 
listing, flow chart, and sample calculation accompanies the 
description of the operation of each program or subroutine. 

All programs and subroutines were written in F0RTRA2! 

IV and were run on the IBM 3 60/65 computer. 

Main Programs: 

A. RUNS GO RE 

3. COSTDATA 

Subroutines called by Main Programs. 

C. TSLECT 

D. HDWTR 

E. CSPACE 

F. CLOIIGL 

G. PMIHER 

Subordinate Programs used to generate input data 
for Main Programs: 

H. S HD AT A 

I. DKDATA 

J. PTLC-TH 

K. WTSKOD 

L. TSHAPE 

M. COSTKL 
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A. HA I IT PROGRAM RUNS CO RS 
1. DESCRIPTION 



Introduction 

Main program RUNSCOHE carries out the design calcu- 
lation for the midship section of DD- 931 ? selecting one 
plating thickness- and one longitudinal scantling (except 
for the keel) to be used throughout the structure. The 
basic computational methods described by St. Deni's DU are 
used, modified as necessary. 

This program is not designed to optimize the charac- 
teristics of the midship section. The required plating 
thickness is selected, the spans between the various 
longitudinals are determined, and the required longitudi- 
nal scantlings are evaluated. Once the structural design 
has been completed, the net section characteristics are 
evaluated and the resultant primary compressive stresses 
are compared vrith the design criteria. Should the design 
be overstressed, the next greater available plating thick- 
ness is selected, and the entire cycle is repeated. RUN- 
SCORS uses existing HTS plating thicknesses and longitudi- 
nal scantlings, as opposed to any idealized materials with 



a; continuous range of available sizes. This, inevitably, 
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results in overdesigned structures in many cases. 

After the input phase has been completed, subroutine 
TSLECT determines the minimum permissible plating thick- 
ness, dictated by the minimum tolerable longitudinal 
spacing specified as an input to the program. This sub- 
routine also determines the greatest permissible interval 
between longitudinals for the stresses and hydrostatic 
loadings existing at the keel. 

Beginning at the keel, the program "climbs” the 
girth of the midship section. The first longitudinal is 
located using the maximum permissible interval determined 
by subroutine TSLSCT. Subroutine CLOIIGL then calculates 
the required longitudinal scantling for this location, 
and subroutine CSPACE evaluates the span to the next 
longitudinal, and the cycle Is repeated. When the shell- 
deck intersection is reached, the program is designed to 
assure that the span to the intersection is at least the 
minimum permissible value. The distance to the inter- 
section is compared with this minimum and, if necessary, 
the span, is increased by reducing the spacings between 
the preceding longitudinals in the shell structure. This 
longitudinal relocation algorithm is so structured as to 
prevent the inadvertent reduction of longitudinal spans 
to less than the minimum tolerable value. Once the location 
of all longitudinal-plating intersections on the shell has 
been satisfactorily completed, the program proceeds to the 
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similar location of the deck Icngituainals. 

The deck calculations are carried out in a manner 
identical to that used for the side shell. HUI7SC03E is 
so structured that the midship section must be symmetrical, 
with a deck longitudinal on the centerline or the center- 
line exactly at mid-span between two deck longitudinals. 

As for the side shell, the spacings in all cases must be 
at least equal to the minimum permissible value. If neces- 
sary, provision is made for the systematic reduction of 
spans between longitudinals to insure that this is the case. 
Up to this point, the program has assumed that the longi- 
tudinals were of adequate strength, with no specific de- 
termination of scantlings. 

With all longitudinal locations now determined, the 
required scantlings for each specific location are cal- 
culated, with the heaviest needed anywhere in the 
structure selected for use throughout the structure. 

Criteria as to the minimum radius of gyration, stiffener 
strength, stiffener critical strength, and the stability 
of the stiffener-plating combination must all be satis- 
fied. 

With the plating thickness and longitudinal scant- 
lings determined, subroutine PKIHSR is called to provide 
the information needed to calculate the contribution of 
the plating to the moment of inertia and cross-sectional 
area of the overall midship section. The effects of the 
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longitudinals are combined wit/.: this to determine the 
total cross-sectional area and moment of inertia for the 
entire midship section. 

The structural vreight of the midship section is 
evaluated in some detail. The total weight per foot length, 
including an approximate valuation of the contribution of 
the transverse framing to the net weight, is calculated in 
pounds and tons. The contributions of the plating, longi- 
tudinals, and transverse framing are similarly determined, 
but only in terms of pounds per foot length. 

With the overall section characteristics fixed, the 
actual hogging and sagging bending moments used in the 
design of the DD-931 are employed in the calculation of 
the actual primary compressive stresses exerted in the 
heel and deck structure. Should either of these exceed 
the design limiting values, the plating thickness is in- 
creased to the next greater value, and the entire compu- 
tation is repeated.. This iterative process is carried 
out until both primary compressive stresses are deter- 
mined to be less than the maximum permissible values. 



Inputs 

Symbol 

PTDATA(I , J,l) 
PTDATA(I, J ,2) 
PTDATA(I,J,3) 



Meaning 

Half breadth to point (I,J). 
(Feet) 

Seight of point above base 
line. (Feet) 

Distance to next point on 
girth. (Feet) 



Synbcl 

ST1CRK 

ST 1 CRD 
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Meaning 



ST2SST 

S GMULT/S GMZLD 
A3H2KL 



D1 

EL Ai m 
HLDPL 

XLGTHL (1,1) 
XLGTHL (1,2) 
XLGTIILd , 3 ) 



Maximum permissible stress at 
keel. (Tons/In. ) 

Maximum permissible stress at 
Geek centerline. (Tons/ 

In. ) 

Estimated. value of secondary 
stress. (Tons/In. ) 

Yield stress of the plating. 
(Tons/In. ) 

Specified maximum heel angle. 

(= O .5236 radians) 

Depth of hull. (= 26.23125+7 
feet) 

Specified design head of water 
above main deck. (= 4.0 
feet) 

Design full load draft. 

(= 14.5 feet) 

Maximum moment of inertia of 
stiffener (I). (In. ) 
Stiffener minimum moment of 
inertia. (In. 4 ') 

Stiffener area. (In. ) 



XLGTHL (1,4) 
XLGTHL (I, 5) 



VCG of stiffener from the cut 
flange. (In.) 

Sriffener overall depth. (In.) 



W5BMIN 

FRl-I 



Minimum permissible longitudi- 
nal spacing. (Feet) 
Transverse frame spacing. 
(Feet) 



Calculated Items 
Symbol 



XL0HGL(I ,1) 



XLOHGLd ,2) 

XL01IGL(1 , 3 ) 
XLOHGLd, 4) 



Meaning 

Half breadth of intersection 
of plating with longitudi- 
nal (I). (Feet) 

Height, above keel of plating- 
longitudinal intersection. 
(Feet) 

Half breadth of point preceding 
the intersection. (Feet) 
Height above keel of point pre- 
ceding the intersection. 
(Feet) 
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Symbol 

W53ACT 

W53PHC 

W53T0L 

SUKDS T/ DS TSUI 1/ 
DSUM 

SUKCAL/SUI1DIF 

DIFF 

ILONGL 

I COUNT 
SPAN (I) 

BBDI-ST 

STEP 

IDIFF 

AAA 

FF 

FFF 



I leaning 

Tolerable longitudinal spacing 
for selected plating 
thickness. (Feet) 

Longitudinal span to longi- 
tudinal in question. (Feet) 

Permissible spacing to next 
longitudinal. (Feet) 

Sun of distances between points 
on girth. (Feet) 

Distance to point preceding 

plating-longitudinal inter- 
section. (Feet) 

Distance from point at SUIICAL/ 
SUMDIF to the intersection. 
(Feet) 

An identifying number for lon- 
gitudinals other than the 
keel. No. 1 adjacent to 
the keel. 

The value of ILONGL at deck- 
shell intersection. No 
longitudinal here. 

Distance to, longitudinal (I) 
from preceding longitudi- 
nal. (Feet) 

Distance needed to be gained 
by reducing spans between 
shell longitudinals to 
permit W53I-IIN distance 
from last shell longitudi- 
nal to deck intersection. 
(Feet) 

Increment the span between 
longitudinals is reduced. 
(Feet) 

Number of spans to be reduced 
on deck to obtain desired 
span at centerline. 

Effective width of plating. 

(In. ) 

Moment of longitudinal-plating 
combination about outer 
edge of the plating. (In. 3) 

Total area of the longitudinal* 
plating combination. (In. ) 
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Symbol 

CGCG(I) 

XKINER(I) 

RGYR 
EPS PAN 

DVALUE 

STALL 

ARK 

PRESS 

BMOMNT 

STIES T 
ST2ALL 
REQMOD 

SMODKKCI) 

RVALUE 

BETA 

GAMMA 

DELTA 



Leaning 



Centroid of longitudinal - 
plating combination, in 
v/eb axis. (In.) 

Moment of inertia of longi- 
tudinal-plating combi- 
nation about CC-CG(I). 

(In. * ) 

Radius of gyration of lon- 
gitudinal-plating combi- 
nation. (In.) 

Effective span (supports 
fixed) for stiffener 
strength calculation . 

(Feet) 

Flexural rigidity of plating. 
(Ton- In. ) 

Permissible sum of primary 
and secondary stresses. 
(Tons/In. 2 ) 

Distance to outermost fiber 
of longitudinal-plating 
combination from CGCG(i). 
(Inches) 

Hydrostatic pressure at lon- 
gitudinal. (Tons/In. 2 ) 

Maximum bending moment on the 
longitudinal-plating com- 
bination at mid- scan. 

(Ton- In.) 

Estimated urinary stress. 

( Tons /In. 2 ) 

Allowable value of secondary 
stress. (Tons/In. 2 ) 

Required section modulus of 
plating-longitudinal com- 
bination. (In. 3) 

Required section modulus for 
longitudinal (I)-plating 
combination at determined 
by subroutine CLOKGL. (In. 3) 

Rigidity. (SI) (Ton-In. 2 ) 

Aspect ratio of plate. 

Inertia factor. 

Area factor. 



m eaning 
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SUI-ITN 



BETA PL 
CRITST 
TOLSTR 



AREAPT 



XLNGTL(1 ,1) 
XLKGTL(2,I) 
SL0PE2(K) 
ZZZ 

ZPOINT 

BASEMT(K) 



BLKOK 



XMOMIN 



XI HER 



ATKL 



Intermediate value used in 
calculating critical 
strength of stiffened 
plating. (Tons/In. 2 ) 

Used in calculating critical 
strength of stiffened 
plating. (BETA 2 + 1) 

Design stress criteria. 

(Tons/In. 2 ) (1.2? x 
( ST1SST + ST2SST)) 

Tolerable stress level de- 
termined by critical 
strength calculation. 
(Tons/In. 2 ) 

Total cross section area of 
half breadth plating. 

(In. 2 ) 

Characteristics of keel 
longitudinal. 

Characteristics of other 
longitudinals . 

Slope of the web of longi- 
tudinal (K) . 

Height of VCG of longitudinal 
above longitudinal-plating 
intersection. (Beet) 

Height of VCG of longitudinal 
above the base line. (Beet) 
Height of VCG of -longitudinal 
above the base line. (Feet) 

K = 1 Keel 

K=2,...*K) (LOHGL 1 ,. . . 39 ) 
Total moment about the base 
line. (In. 2 Feet) 

Total moment of inertia about 

the base line. (In. Feet 2 ) 
Moment of inertia of the mid- 
ship section about the 
neutral axis. (In. Feet 2 ) 
Plating thickness found to be 
■ insufficient, to be in- 
cremented. (Inches) 



Output 



Symbol 



Meaning 



Weight contribution of the 
plating. (Pounds/Ft. 
length; 



WEIGHT 



Symbol 


'•fed n ins 


ZNAXIS 


Height of neutral axis of mid- 
ship section above base line. 
(Feet) 


RSQMIII 


Required moment of inertia about 
original DD-931 neutral axis. 
(In. 2 Ft. 2 ) 


ASTRS3 


Actual primary compressive stress 
in keel. (Tons/In. ) 


BSTRE33 


Actual primary compressive stress 
in deck. (Tons/In. ) 


WTO TLB 


Total structural weight. (Pounds/ 
Ft. length) 


WFRAME 


Transverse frame weight. (Pounds/ 
Ft. length) 


WTOTAL 


Total weight. (Tons/Ft. length) 


WLCIIGL 


Total longitudinal weight. (Pounds/ 
Ft. length) 


it/Outnut 


(Refer to printout of typical computer 
run, following pages) 


. Equations 


-\ 

(Refer to program listing, follow- 
ing pages, and St. Denis [7 11) 



THE FOLLOWING IS A REPRESENTATIVE SAMPLING OF 
EQUATIONS PARTICULARLY IMPORTANT TO MAIN 
PROGRAM RUES CORE: 



Longitudinal location 

SUKDST = SURDS T + PTDATA(I , J ,3) 
SUMCAL = SURDS T - PTDATA ( I , J , 3 ) 



DIFF = V/53PRC - SUMCAL 

XLORGL ( ILON GL , 1 ) = PTDATA ( I, J,l) 



DIFF x ( PTDATA ( I, J+1,1) 
- PTDATA(I , J ,1) 
PTDATA (1,1,3) 



XL01T GL ( ILONGL , 3 ) = PTDATA(I,J ,1) 



Satisfy requirements as to minimum radius of gyration 

AAA = lesser, 12. x SPAN(I) or 50. x TEL 

FF = XLGTIIL(J ,3) x (XLGTI!L( J,4) + Till) + 

0.5 x AAA x (TEL 2 ) 



- 27 - 



FFF = XLGTITG(J,3) + QEL X AAA 
CGCG(I) = FF / FFF 

XMII'IER ( I ) - XLGTiIL(J,l) ± XLGTHL(J,3) x (XLGTNLCJ,^) 

- CGCG(I)) 2 + 0.03333 x AAA x 

THL3 + TEL X AAA x (CGCG(I) - 
0.5 x TEL) 2 

RGIR - 

Satisfy requirements as to stiffener strength 
EFSPAIT = 12. x 0.577 x FR1-1 

DVALUE = 1 3392.8g7 x TH1 3 

BMOMNT = 216. x PRESS x SPAU(I) x FRI1 2 

BEQMOD = 3I-I0MITT / ST2ALL 
BVALUE =- 13392.857 x XllHTER(I) 

non,, _ BVALUE 

“ 12. x SPiUUl) x DVALUE ^ 

XLGTNL ( J , 7 ) 

D3LlA - 12. x SPA-'ii) x TEL 

qnrTTT A.lVlS 2 x DVALUE . 

SULiTiI " 1^-. x TH1 x SPAT (I) 2 

BETAPL = 1.0 + BETA 2 

CRITST = 1.25 x (ST1EST + ST2E3T) 

_ SUKTI'T X (BETAPL 2 + 4. x C-AIuIA) 

T0LSTR " ™ BETA 2 x ‘Cl. ^ T-'^/ FDELTA) 

Calculate the total moment of inertia of the midship section 
ADIIIER = XLNGTL(1,3) x BASEl-IT(K) 2 + 



XLNGTL(l,2)/l44. + (XLNGTL(1,1) - 

‘ Arctan(3LCPG2 (K) ) 

lW. x 3.1M-16 ”” 



XLHGTL(1,2)) 2 x 2. 3 

ytt-q - I ZNAXIS x (BLKOK 2 - ARSAPT x XKQKIN) f 
JLLI ’ ,Att ~ I BLMOK I 



A 



Sample 



-So- 



ld in the weight contribution of the main transver se 
’.varies 



frames 



2859. x (1. + 

WTO TLB = 3.b x AREAPT + —(P.831 x - S) /l) ) 



Calculation (Refer to program listing, flow chart, 

and printout of typical computer 
rim, following pages) 



o o o 
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G LEVEL 0, .'100 C MAIN 



DATE ^ 67132 19/43/58 



DIMENSION XLONGL ( '+0 ♦ 4 ) .SPAN (AC) , SMODMN(AO) , XLGTNL(9,5) ,XLNGTL(2,5) 
1,CGCG(4Q) .XMN2R140) » SLOP E2 l 40 ) , P TDA T A ( 30 » 10 , 3 ) .BASEMT140) 

INPUT UATA AND INITIALIZE STORAGE VALUES 



W 513 ACT = C.O 

954 FORMAT Cl I J PTDATAt I » J » l ) PTDA TA ( I , J , 2 ) 

1 P T U A TA { 1 , J , 3) • ) 



95 L FORMAT ( 4X , I 4 , 4X , I 4 , 7X , 3 ( F 1 0 . 6 , 5 X ) ) 

WRITE (6, 954) 

901 FORMAT { 23X , 4 { 2X , F 10 . 6 ) ) 

DO 9C7 I = 1,29 
DO 907 J = 1,10 

907 READ (5,901) PTDA TA ( I , J , 1 ) , P TDATA ( I , J , 2 ) , PTDAT A ( I , J , 3 ) 
DO 903 I = 1, 40 
DO 903 J = 1, 4 
903 XLONGL ( I , J) = 0.0 

DATA XL1BP.SU MOST, I LONGL , R 5GYRA , * 5BT OL /40 7 . ,Q.,1,0.,0./ 



I = 30 
J = 1 

READ (5,901) PTDATAt I , J , 1 ) , P TDAT A ( I , J , 2 ) , PTDAT A ( I , J , 3 ) 
DO 910 J = 2, 10 

DO 910 K = 1, 3 



910 


P TD AT A ( I , J, 


K) = Q-.0 








DO 941 


J = 


1, 2 








DO 941 


K = 


It 5 






941 


XLNGTL ( J » K. ) 


= 0.0 






9C0 


FORMAT 


( 5F16.7) 






915 


FORMAT 


( * 1 


REQUIRED MOMENT OF INERTIA =*,F20.6,* 


IN** 


2 FT ** 2 ’ ) 


916 


FORMAT 


< *0 


ACTUAL MOMENT OF INERTIA =*,F20.6 t * IN 




r 1 **2 ' J 


917 


FORMAT 


( *G 


MAX. TOLERABLE Sl'ioKS. =*,F10.7,' TONS 


PER 


SQ. INCH* ) 


918 


F OR MAT 


l *0 


ACTUAL ST1CRK =',F10.7,' TONS PER SQ. 


INCH 


* ) 


919 


FORMAT 


( *0 


MAX. TOLERABLE STlCRD = ’ , F 10 . 7 , • TONS PER SQ. INCH*) 


920 


FORMAT 


( *c 


ACTUAL STlCRD =',F10.7,* TONS PER SQ. 


INCH 


* ) 


921 


FORMAT 


( *0 


IOTAL WEIGHT =', F10.7,’ TONS PER FOOT 


LENGTH’ ) 


1921 


FORMAT 


( *0 


PLATING WEIGHT =*, F15.7,' POUNDS 


PER 


FOOT LENGTH 



1 ) 

1922 FORMAT (• LONGITUDINAL WEIGHT = ', F15.7,' PUUNOS PER FOOT LE 

1NGTH ' ) 



1923 FORMAT ( • 

1 LENGTH* ) 

922 FORMAT CO 

923 FORMAT CO 

924 FORMAT ('0 
934 FORMAT CO 
933 FORMAT Cl 

925 FORMAT ( 'C 

926 FORMAT CO 



TRANSVERSE FRAME WEIGHT =*,F15.7,* POUNDS PER FOOT 

TOTAL WEIGHT = ', F15.7,* POUNDS PER FOOT LENGTH*) 
NEUTRAL AXIS IS *,F10.7,’ FEET ABOVE BASE LINE*) 

DESIGN IS ACCEPTABLE* ) 

SPAN (',12,*) = ’ » F 1 0 . 6 ) 

S P AN C » I 2 » * ) = ' , F 10 . 6 ) 

DESIGN REPEATED WITH TH1 INCREASED*) 

DESIGN IS NOT POSSIBLE UNLESS TH1 IS GREATER THAN 



o o o o o 
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G LEVEL 0, MUD 0 



MAIN 



DATE = 67132 



19/43/53 



1 ONE INCH.*) 

928 FORMAT (*C SCANTLING ',13,' SELECT EO--CROSS-SECT l ON AREA I 3 ' » F L 
10. 7 f * SQ.. IN. AND WEB DEPTH IS *,F10.7,' INCHES.*) 

929 FORMAT ( * 0 KEEL HAS AN AREA 0F',FlC.7»* SQ. IN. AND A WEB DEPTH OF 
1 ' » F 1 0 . 7 , * INCHES.') 

D0950 I = 1, 30 
DO 950 J = 1, 10 

950 WRl TE ( 6,951 ) I,J,PTDATA(I,J,1) , PTJATA ( I , J , 2 ) , PTDATA ( I , J , 3 ) 

READ (5,900) ST1CRK, ST1CRD, ST2EST , SGMULT, SGMYLO 

INTERIM TH1 =',F10.6,' AND W53ACT =',FIC.6) 

' j = ' , I 3 , ' SUMOST = ’ , F 1 0 . 6 ) 



955 


FORMAT 


l '0 


956 


FORMAT 


( ' 


957 


FORMAT 


{ '0 


958 


FORMAT 


( »G 


959 


FORMAT 


( *0 


960 


FORMAT 


( *0 


961 


FORMAT 


( *C 


962 


FORMAT 


( '0 


963 


FORMAT 


( '0 



I =' ,13, 
SPAN! • , 12, * ) 



I = 



13, 



= * ,F10.6, * 

HM = *, F10.6) 



I = ' , 12. 



J = 



12 ) 



XMINER( * , 12, * ) = • F15.6 ) 

C GCG ( ' , 12, ' ) = ' , F 10.6) 

LONGITUDINAL (*, 12,*) IS SELECTED*) 

QASEMTt', 12,') = ' , F L 0 . 6 ) 

SELECTED PLATING THICKNESS = ',F10.6,' INCHES. •) 
READ (5,900) A3HEEL, Dl, H1AMDK, H1DFL 
902 FORMAT ( 1H 1 , 6X , * S T 1C RK • , 9 X , • ST1CRD* ,9X, ' ST2EST' ,9X, * SGMULT' ,9X, 

1 ' SGMYLD ' ) 

904 FORMAT (5(5X,F10.6) ) 

905 FORMAT (5X,'w5BMIN =',F10.o,' FRM =',F10.6) 

911 FORMAT ( I3,6(2X,F13.6) ) 



' ,5X, 



YPR 



VCG 



912 FORMAT (•1I',4X,* Y ',5X,* Z 

1 5X , ' ZPR ' » 7X , * SPAN ( I ) ' , 7X , ' SMODMN Cl)') 

913 FORMAT (5F16.7) 

964 FORMAT ('C I MAX. I. MIN. I. AREA 

1 DEPTH • ) 

975 FORMAT (2X, 12, 2X,F11.6, 4(3 X. FLO. 6) ) 

WRITE (6, 964) 

DO 91* I = 1, 9 . 

READ ( 5,913 ) XLGTNL (1,1), XLGTNL (1,2) , XLG TNL ( 1,3) ,XLGTNL (1,4) , X L G T N 
1 L ( I ,5) 

914 WRITE (6,975) I, XLGTNL(I,1), XLGTNL(I,2), XLGTNL(I,3), XLGTNL(I,4 
1), XLGT NL ( I , 5 ) 

965 FORMAT ( • 0 W56ACT =',F10.6,' W5BPRC =',F10.6,' W5BT0L =*,F10.6 
1 ) 

966 FORMA T ( ' 0 Y =',F10.6,' Z =',F10.6,' YPR =',FI0.6,' ZPR =',F10 

1 . 6 ) 

967 FORMAT ( • G CLONGL OUTPUT = • , 4 ( F 10 . 6 , 5 X ) ) 



PROVIDE INPUT DATA TO CONTINUE CALCULATION INTERRUPTED IN PREVIOUS 
COMPUTER RUN. SULUTION UP TO THIS TIME INDICATED FURTHER INCREMENTS 
IN PLATINo THICKNESS WERE NECESSARY. 



500 READ (5, 9C0) N5BMIN, FRM 

IF IW58MIN .GT. 9.99) GU TO 420 



o o o o o o o 
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W5B ACT = 0.0 
400 WRITE (6, 9 J 2 ) 

SUMDST = 0.0 
ILONGL = 1 
W 5 B T 0 L = 0.0 

IF (W5BACT .GT. 0.0) GU TG 66d 



DETERMINE PLATING THICKNESS 

CALL TSLECT ( W53M I N , ST ICRK , ST2E ST , SGMULT » FRM , TH l , W5 dACT ) 

GO TO 667 

668 W5d ACT = TH 1 * W5BACT / ATH 1 
6’6 7 DU 940 J = 1 , 40 
SPANIJ) =0.0 
SMODiMN (J) = 0.0 
CGCG(J) = 0.0 
XMINER(J) = 0.0 
SL0PE2I J) = 0.0 
940 BASEMT(J) = 0.0 

DO 9940 J = 1 , 40 
DO 9940 K = 1, 4 
9940 XLONGL(J,K) =0.0 

WRITE (6,904) S T1CRK, ST 1CRD , ST2EST , SGMULT » SGMYLD 
WRITE (6, 905 ) W5BMIN, FRM 
WRITE (6, 955) TH1 , W53ACT 
W53PRC = W5BACT 

WRITE (6,965) W5SACT , W56PRC , W56TUL 

DETERMINE ACCEPTABLE LONGITUDINAL SPACING FOR BOTH DECK AND SIDE 
SHELL LONGITUDINALS. 

226 DO 200 I - 1, 30 
DO 200 J = i, 10 
IF ( ILONGL .GT. 1 ) GO TO 333 
W5BPRC = W5BACT 
GO TO 115 

333 W5BPRC = W5BT0L 

115 SUMDST = SUMDST + PTDATA (I, J, 3) 

WRITE (6, 956) I, J, SUMDST 
IF (I .EQ. 30) GO TO 225 
IF (I .EQ. 19) GO TO 205 
GO TO 207 

205 IF (J .EQ. 10) GO TO 204 

207 IF ((SUMDST - W5BPRC ) .GT. 0.0) GO TO 201 
GO TO 200 

201 SUMCAL = SUMDST - PTDATA ( I , J , 3 ) 

DIFF = W5BPRC - SUMCAL 



C 



ooo ooo ooo 
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L6VEL 0, MOO 0 MAIM DATE = 67132 19/43/63 

C LOCATE THE LONGITUDINALS 

C 

IF (J .EQ. 10) GO TO 202 

X LONGL ( I LONGL » I ) = PTDATA ( I , J , i ) + ( 0 I F F / PTDA1 A ( I , J , 3 ) J * 

1 (PTOATA ( I , J+l , 1 ) - PT0ATA( I, J, 1) ) 

XLONGL { I LONGL » 2 ) = PTOATA ( I , J , 2) + { D I FF/PT OAT A ( I , J , 3 ) ) * 

I (PTDATAt i, J+1,2) - PTDATAt I, J,2) ) 

XLONGL ( I LONGL t 3) = PTOATA (I, J, I) 

XLONGL { I LONGL » 4) = PTOATA (I, J, 2) 

SUMDST = SUNOS T - *5dPRC 

WRITE (6,966) XLONGL ( I LONGL, I ) , XLONGL ( I LONGL, 2) , XLONGL ( I LONGL , 3 ) , X 
I LONGL ( I LONGL , 4 ) 

GO TO 203 

202 X LONGL ( I LONGL , I ) = PTOATA ( I , J , L ) + ( 0 I FF / P TO AT A ( I , J , 3 ) ) * 

I (PTOATA! 1+1,1, I) - PTOATAt I , J, I ) ) 

XLONGL ( I LONGL , 2 ) = PTOAT A ( I , J , 2 ) + ( 0 I F F / PTDA T A ( I , J , 3 ) ) * 

1 (PTOATAt 1 + 1,1, 2) - PTOATAt I , J, 2) ) 

XLONGLl IL0NGL,3) = PTOATA ( I , J , l ) 

XLONGL! I LONGL , 4 ) = PTOATA (I, J, 2) 

SUMDST = SUMDST - W 56 PRC 

WRITE ( 6,9c6 ) XLONGL ( I LONGL , 1 ) , XLONGL ( I LONGL, 2 ) , XLONGL ( I LONGL , 3 ) ,X 
1L0NGL ( I LONGL , 4 ) 

CALCULATE R5GYRA AND SMODMN REQUIRED FOR LONGITUDINALS 

WRITE (6, 965) W58ACT, W5BPRC, W58T0L 

203 AAA = R5GYRA 

CALL CL CJNCL ( S T 1 C RK , ST 1 CR D , S T2 E S T , SGMUL T , FRM , TH 1 , W 5 3PRC , 

1 R5GYRA, SMUDMN( I LONGL ) ,XLONGL( I LONGL , l) ,XLONGL( IL0NGL,2) ) 

WRITE (6, 967) R5GYRA , SMOOMN! ILC.NGL ) , XLONGL ( I LONGL , 1 ) , XLONGL ( I LUNG 

1L ,2 } 

WRITE (6, 965) W58ACT , W5BPRC, W53T0L 
IF ( R5GYRA .GT. AAA) GO TO 210 
R5GYRA = AAA 

DETERMINE LONGITUDINAL SPACING. 

210 CALL CS PACE ( ST 1CRK , S T 1 CRD , ST2E S T , SGMUL T , FRM , TH l , 

1 XLONGL ( I LONGL, 1) , X LONGL ( IL0NGL,2) , w5BPRC , W58T0L ) 

SPAN ( I LONGL ) = W58PRC 

WRITE (6, 957) I LONGL , S P AN ( I LONGL ) , I , J 
WRITE (6, 965) W56ACT , W58PRC , W56T0L 
I LONGL = I LONGL + 1 
GO TO 200 

ADJUST FOR DECK-SHELL INTERSECTION. 



204 ICOUNT 



I LONGL 



o o o 
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IF (SuMDST .LT. W5SMIN) GO TO 208 
SPAN (ILONGL) = SUMDST 

WRITE (6, 957) ILONGL, SPAN ( I LONG!. ) , I, J 
SUMDST = O.G 

XLONGL (ILONGL, 1) = PTDATA(20, 1, 1) 

XLONGL ( ILONGL » 2 ) = PTDATA { 20 » 1, 2) 

XLONGL ( I lGNGL , 3 ) = PTDATAI20, 1, 1) 

XLONGL ( I LUNGL , 4 ) = PTDAT A{ 20 » 1, 2) 

WRI TEI 6,966 ) XLONGL ( I LONGL , 1 ) , XLONGL ( I LONGL ,2 ) , XLONGL ( ILONGL , 3 ) , 

1 XLONGL I I LONGL, 4) 

ILONGL = ILONGL + I 
GO TU 200 

208 XX = ILONGL - I 

BBDIST = W5BrtIN - SUMDST 
STEP = BBDIST / XX 
214 JJ = 1 

IF I ( S PAN ( 1 ) - W5BMIN) .GT. STEP) GO TO 2L6 

ADJUST SPACING BY REDUCING THE SPAN. 

DO 98 J A J A= 1 , ILONGL 
CC = SPAN ( J A JA) - W53MIN 
83DIST = BBDIST - CC 
IF (BBDIST .LT. 0.0) GO TO 97 

98 SPAN ( J A J A ) = W56MIN 
WRITE (t>, 957) J A J A , SPAN(JAJA), I, J 
IF ( JA J A .EQ. I LUNGL ) GO TO 99 

97 SPAN ( J A JA ) = SPAN (JAJA) - CC - BBDIST 
WRITE (6, 957) JAJA, SPAN(JAJA), I, J 

99 STEP = 0.0 

216 DSTSUM ~ 0.0 
999 DO 215 IA = 1, 19 

DO 215 JA = 1, 10 

DSTSUM = DSTSUM + PTDATA (IA,JA,3> 

IF (110-IA + JA) .EQ. 200) GO TO 110 
IFUSPANCJJ) - DSTSUM) .LT. 0.0) GO TO 107 
GO TO 215 

107 SPAN ( J J ) = SPAN ( J J ) - STEP 

S UM DIF = DSTSUM - PTDATA ( I A , JA, 3) 

DIFF = SPAN ( J J ) - SUMDIF 
WRITE (6, 957) JJ, SPAN(JJ), IA, JA 
IF (SPAN(JJ) .GT. 0.0) GO TO 127 
SPAN ( J J ) = 0.0 

WRITE (5, 957) JJ, SPAN(JJ), IA, JA 
GO TO 110 ' 

127 IF (JA .EQ. 10) GO TO 108 

XLONGL ( J J , 1 ) = PTOATAl I A , J A , 1 ) + ( DIFF / 

1 PTDATA ( IA , J A , 3 ) ) * ( PTDAT A ( I A , JA+1 , 1 ) - PTDAT A { I A , J A , 1 ) ) 



o o o n noon 
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XLONGL ( J J , 2 ) = PTDATA ( IA ,JA, 2) *■ ( DIFF / 

1 P T D A T A ( l A » J A , 3 ) ) ' * ( PTDA TA { I A , J A+ 1 2 - PTDATAl I A, JA ,2 ) ) 

XLONGL (J J,3)= PTDATA (IA, JA, 1) 

XLONGL l J J , 4 ) = PTDATA (IA, JA, 2) 

WRITE! 6 ,966) XLONGL ( JJ , 1 ) , XLONGL ( JJ , 2 ) , XLONGL ( J J, 3 ), XLONGL ( J J , 4 ) 

* DST SUM = DST SUM - SPAN(JJ) 

JJ = JJ + 1 
GO TO 2 L 5 

108 XLONGL ( J J , 1 ) = PTDATA! 1A,JA, 1 > + ! DIFF / 

1 PTDATA ( IA,JA, 3) ) * ( PTDATA { I A* 1 , 1 , 1 ) - PTDATA! IA,JA, 1) ) 

XLONGL ( JJ ,2 ) = PTDATA! IA,JA, 2) + ( DIFF / 

1 PTDATA! IA,JA, 3) )*( PTDATA! I A+ 1 , 1,2) - PTD AT A ( I A , J A , 2 ) ) 

XLONGL! JJ,3)= P T DAT A ( I A , J A , 1 ) 

XLONGL ! J J , 4 ) = PTDATA! IA,JA, 2 ) 

WRITE (6, 966) XLONGL! JJ, 1) , XLONGL! JJ, 2) , XLONGL! JJ, 3) , XLONGL! JJ, 4) 

D ST SUM = DST SUM - SPAN(JJ) 

JJ = JJ + 1 
GO TO 215 

110 XLONGL! JJ, 1) = PTDATA (20,1,1) 

XLONGL! J J , 2 ) = P TDATA ( 20 , 1 , 2 ) 

XLONGL! JJ,3)= PTDaTA (20,1,1) 

XLONGL! JJ,4)= PTDATA (20, 1, 2) 

SPAN! I LUNGL ) = W5BHIN 

WRITE (6, 966) XLONGL ! JJ , 1 ) , XLONGL ( JJ , 2 ), XLONGL ( JJ , 3 ), XLONGL ( JJ , 4 ) 
WRITE (6, 957) JJ, SPAN(JJ), IA, JA 
ILONGL = ILONGL + 1 
SUMDST = 0.0 
GO TO 200 
215 CONTINUE 

ADJUST DECK LONGITUDINAL SPACING TO FACILITATE SYMMETRY RELATIVE 
TO THE CENTER LINE. 

225 IF (((0.5 * W53MIN) - SUMDST) .GT. 0.0) GO TO 801 
GO TO 220 

DECREASE SPAN TO OTHER DECK LONGITUDINALS TO PERMIT CENTERING SPAN 
ON THE CENTERLINE. 

801 IDIFF = ILONGL - ICOUNT - 1 
XDIFF = IDIFF 

STEP = (0.5 * W 5 DM IN - SUMDST) / XDIFF 
SPAN! ILONGL) = 0.5 * W56MIN 
ILONGL = ILONGL - 1 
IRKED = ICOUNT + 1 
DO 826 IA = IRKED, ILONGL, 1 
SPAN! I A) = SPAN! I A) - STEP 
826 WRITE (6,957) IA, SPAN ! I A ) , 1 1 , J J 
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ILDNGL = ILONGL + 1 
I A = I COUNT i- I 

DO 22 7 II = 20, 29 

00 227 JJ = I, 10 

DSUM = DSUM + PTDATAI I I ,JJ,3) 

IF I { S PAN { I A ) - DSUM) .LT. 0.0) GO TO 223 
GO TO 227 

228 IF (JJ . Ew . 10) GO TO 229 

SUMD I F = DSUM - PTDATA ( I I , J J , 3 ) 

DIFF = SPANI I A) - SUMD I F 

XLONGL (IA, 1) = PTDATA (II, JJ, 1) + ( DIFF / 

l PTDATAI I I , J J , 3 ) ) * (PTDATAd I , JJ + 1, 1 ) - P TDA T A ( I I , J J , 1 ) ) 

XLONGL (IA, 2) = PTDATA (II, JJ, 2) + ( DIFF / 

1 PTDATAI II ,JJ, 3) ) * (PTDATA! I I, JJ+1,2) - PTDATA ( I I , J J , 2 ) ) 

XLONGL ( I A , 3 ) = PTDATAI II ,JJ, L) 

XLONGL ( IA,4 ) = PTDATA ( 1 1 , J J , 2 ) 

WRITE (6,966) XLONGL ( I A , 1 ) , XLONGL ( I A, 2) , X LQNGL ( I A , 3 ) , XLONGL ( I A, 4) 

DSUM = DSUM - SPAN(IA) 

IA = IA + 1 
GO TO 227 

229 SUMD I F = DSUM - PTDATA (II, JJ, 3) 

DIFF = SPAN ( I A ) - SUMD I F 

XLONGL (IA, 1) = PTDATA (II, JJ, 1) + ( DIFF- / 

1 PTDATAI II ,JJ, 3) ) * ( PTDATA (II + L,i,L) - PTDAT A ( I I , J J , 1 ) ) 

XLONGL (IA, 2) = PTDATA III, JJ, 2) + ( DIFF / 

I PTDATA ( I I , J J , 3) ) * ( PTDATA (11 + 1,1,2) - P TD AT A ( 1 1 , J J , 2 ) ) 

XLONGL! I A, 3 ) = PTDATA ( I I , J J , 1 ) 

XLONGL ( I A , 4 ) = PTDATA ( 1 1 , J J ,2 ) 

WR I T E ( 6 , 966 ) X LONGL ( IA, 1 ) , XLONGL ( I A, 2) , XLONGL! I A, 3) , XLONGL! I A, 4) 

DSUM = DSUM - SPANI I A) 

I A = I A + 1 
227 CONTINUE 
GO TO 300 

220 IF (SUMDST .GT. W5BMIN) GO TO 221 

DECREASE SPANS TO OTHER DECK LONGITUDINALS TO PERMIT PLACING A 
LONGITUDINAL ON THE DECK CENTERLINE. 

IF (SUMDST .LT. 0.5*W5BT0L) GO TO 320 
BBDIST = W3BMIN - SUMDST 
IA = ILONGL - ICOUNT - 1 
XIA = IA 

SPAN ( ILONGL ) = w53MIN 
STEP = BBDIST / XIA 
ICOUNT = ICUUNT + 1 
DO 230 I A I = ICOUNT, ILONGL 

230 SPAN ( I A I ) = SPAN ( I A I ) - STEP 
ICOUNT = ICOUNT - 1 
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WHITE (6, 957) IaI, SPAN(IAI), II, JJ 

IA = ICOUNT 

OU 237 II = 20, 29 

DO 2j> 7 JJ = 1, 10 

DSUM = DSUM + PTDATA ( I I , J j , 3 ) 

IF ((SPAMIA) - DSUM) .LT. 0.0) GO TO 238 
GO TO 237 

238 IF (JJ .EQ. 10) GO TO 239 

SUMO I F = DSUM - PTDATA III, JJ, 3) 

DIFF = SPAN U A) - SUMO IF 

XLONGL ( IA, 1) = PTDATA III, JJ, 1) + ( DIFF / 

1 PTDATA! I I , J J ,3 ) ) * ! PTDATA { I I , J J+l, 1 ) - PTDAT A ( 1 1 , J J , 1 ) ) 

XLONGL (IA, 2) = PTDATA (II, JJ, 2) + ( DIFF / 

1- PTDATA(IItJJ,3) ) * ( P TDA 1 A ( I I, JJ+1, 2) - PTDAT A ( I I , J J , 2 ) ) 

XLONGL ( I A , 3 ) = PTDAT A ( I I , J J , 1 ) 

XLONGL ( I A , 4 ) = PTDATA ( I I , JJ ,2 ) 

WRI TE ( 6, 9t>6 ) XLONGL ( IA,1) , XLONGL ( I A , 2 ) , X LONGL ( I A , 3 ) , XLONGL ( I A, 4) 
DSUM = DSUM - SPAN(IA) 

IA = IA + 1 
GO TO 237 

239 SUMDIF = DSUM - PTDATA (II, JJ, 3) 

DIFF = SPAN ( I A ) - SUMDIF 

XLONGL (IA, 1) = PTDATA (II, JJ, 1) + ( DIFF / 

1 PTDATA! II, JJ, 3)) * < PTDAT A < I I + 1 , 1 , 1 ) - PTDAT A ( I I , J J , 1 ) ) 

XLONGL (IA, 2) = PTDATA (II, JJ, 2) + ( DIFF / 

1 PTDATA l I I , J J ,3 ) ) * (PTDATAUI + 1,1,2) - PTDATA ( 1 1 , J J , 2 ) ) 

XLONGL ( I A, 3 ) = PTDAT A ( I I , J J , 1 ) 

XLONGL ( I A,4)= P T DA T A ( I I , J J , 2 ) 

WRI TE( 6,966 ) XLONGL ( IA, 1 ) , XLONGL ( I A, 2 ) , XLONGL ( I A, 3 ) , XLONGL ( l A, 4) 
DSUM = DSUM - SPAN(IA) 

I A = l A + 1 
237 CONTINUE 
GO TO 300 

SPAN GREATER THAN W5BMIN, PLACE LONGITUDINAL ON THE CENTERLINE. 

221 SPA N ( I LONGL ) = SUMDST 

XLQNGL( I LONGL, 1 ) = PT0ATA(30,1, 1) 

XLONGL( ILUNGL,2) = PTDATA(30» 1, 2) 

XLONGL! I LONGL, 3) = PTDATA(30,1, 1) 

XLONGL! ILONGL ,4) = PTDATA ( 30, 1, 2) 

WR I TE { 6 , 966 ) XLONGL ( ILONGL , 1 ) , XLONGL ( I LONGL , 2 ) , XLONGL ( I LONGL , 3 ) , 
1 XLONGL ( ILONGL, 4) 

GO TO 300 

CURRENT LONGITUDINAL PLACEMENT OK. CENTER SPAN ON CENTERLINE. 



520 SPAN ( I LONGL ) 



SUMDST 
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LEVEL 0, MOO 0 MAIN DATE = 67132 19/43/53 

GO TO 300 
200 CONTINUE 

CALCULATE THE REQUIRED LONGITUDINAL SCANTLING. 

300 DO 310 1=1,5 
310 XLNGTL ( 1 , I ) =XLGTNL(9,l) 

WRITE (6, 912) 

DO 206 III = 2, 40 
IF ( SPAN* III) .GT. 0.0) GO TO 206 
SPAN! Ill) = 0.0 

IF (SPANIIII - 1) .GT. 0.0) GO TO 20d 
XLONGL ( I I I , 1 ) = 0.0 
XLGNGL ( I 11,2) = 0.0 
XLONGL ( I I I , 3 ) = 0.0 
XLONGL ( I I I , 4 ) = 0.0 

206 WRI TE( 6,911 ) III, XLONGL ( I 1 1 , 1 ) , XLONGL ( I I I ,2 ) , XLONGL (111,3), 

1 XLGNGL ( I II ,4) , S P A N ( III), SMODMN ( III) 

SATISFY REQUIREMENTS AS TO MINIMUM RADIUS OF GYRATIUN. 

J = 1 

DO 320 I = 1, 40 
IF (SPAN! I ) .EQ. 0.0) GO TO 323 
IF ( XLONGL (1,2) .EQ. 0.0) GO TO 323 
IF (12.0+SPANU) .GT. 50.*TH1) GO TO 322 
AAA = 12.0 * SPAN ( I ) 

GO TO 321 

322 AAA = 50.*TH1 

321 FF = ( XLG TNL ( J , 4 ) + TH1) * XLCTNL(J,3) + 0.5 * AAA * (THl**2) 

FFF = XLGTNL ( J , 3 ) + TH1 * AAA 
CGCG(I) = FF/FFF 
WRITE (6, 960) I, CGCG(I) 

XMINER(I) = XLGTNL ( J , 1 ) + XLGTNL ( J , 3 ) * < ( XLGTNL ( J , 4) -CGCG( I ) ) **2 ) * 

I 0.08333*AAA*(TH1**3) + TH 1 *A AA* ( ( CGCG ( I ) -0 . 5 *TH 1 ) **2 ) 

RGYR = SQRT (XMINER(I) / FFF) 

WRITE (6, 961) J 
IFIR5GYRA .LT. RGYR) GO TG 320 
J = J + 1 
GO TO 321 
320 CONTINUE 

SATISFY REQUIREMENTS AS TO STIFFENER STRENGTH. 

323 EFSPAN = 0.577 * FRM * 12.0 
DVALUE = (13392.857 * (TH1**3)) / 10.8 
STALL = 38000. / 2240. 

DO 324 I = 1, 40 
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n 

C 



IF ( SP AN ( l I .ED. 0.0) 00 TO 45 3 
IF ( X1.0NGL ( I , 2 > .EG. 0.0) GO TO 45 3 
329 I F( ( ( XLGTNL ( J » 5 ) + TH1) - CGCO(I)) . L T . CGCGII)) GO TO 325 
ARM = CGCGI I ) 

GO TO 326 

325 ARM = XLGTMI J, 5) + TH1 - CGCGII) 

326 IF I 12.0*SPAN( I ) .GT. 50.*TH1) GO TO 32 7 
AAA = 12.0 * SPAN! I ) 

GO TO 328 

327 AAA = 50.0 * TH 1 

323 CALL HUWTRI A3HEEL » XLONGL (1,1) , D 1 , HI AMDK , H 10F L , N8EL T S , XL 1 3P , 

1 XLONGL (1,2), HM ) 

WRITE (6, 958) I, HM 
PRESS = 0.445 * HM/ 2240 . 

BMUMNT = 216. * PRESS * SPAM ( I ) * FRM**2 
ST l E ST = 7.93 * A3S ( XLONGL ( 1 , 2 ) - ( ( 7 . 9 3/ 1 3 . 93 ) *26 . 23 125 ) ) 

ST2 ALL = STALL - STIEST 
REQMOO = 3ML5MNT / ST2ALL 

X M I N E R ( I ) =X LGTNL ( J , 1 ) +XLGTNL ( J , 3 ) * ( ( XLGTNL ( J,4)-CGCG( I ) ) **2 ) ' + 
1 0.08333*AAA*( TH1**3) + TH 1 *A AA* ( ( CGCG ( I ) -0 . 5 *TH 1 ) **2 ) 

WRI TE (6, 961) J 

I F( ( XM I NER( I ) / ARM ) . LT . SMODMNt I ) ) GO TO 1324 
IF ( ( XM I NER ( I ) / ARM ) .GT. REQMOO) GO TO 324 
1324 J = J + 1 

WRITE (6, 961) J 
GO TO 329 

324 CONTINUE 

SATISFY REQUIREMENTS AS TO STIFFENER CRITICAL STRENGTH. 

453 00 330 I = i, 40 

IF (SPAN(I) .EQ. 0.0) GO TO 451 
IF ( XLONGL (1,2) .EQ. 0.0) GO TO 451 

336 IF ( 12.*SPAN( I ) .GT. 50.*TH1> GO TO 337 
AAA = 12.0 * SPAN ( I ) 

GO TO 338 

337 AAA = 50.0 * TH 1 

338 XMI NER ( I )=XLGTNL(J, l ) +XLGTNL ( J , 3 ) * { ( XLGTNL ( J , 4 ) -CGCG ( I ) )**2 ) + 
1 0.08333*AAA*( TH1**3) + TH 1 *4 AA*( ( CGCG( I ) -0 . 5 *TH1 ) **2 ) 

BVALUE = 13392.357 * XMINER(I) 

BETA = FRM / SPAN! I ) 

GAMMA = BVALUE / (SPAN(I) * 12. * DVALUE ) 

OELTA = X L G T N L ( J, 3) / (12.0 * SPAN(I) * TH1 ) 

SUM TN = (( 3. 1416**2 )*DVALUE )/( 144. * TH1 * SPAN(I)**2) 

BETAPL = 1.0 + BETA**2 

STIEST = 7.93* AbS ( XLONGL ( I , 2 ) - ( ( 7 . 93/ 1 3 . 93 ) *26 . 2 3 125 ) ) 

CRITST = 1.25 * (STIEST + ST2EST ) 

TOLSTR = SUMTN * (BETAPL* *2 + 4 . 0*GAMMA ) / ( ( 3ETA**2 ) * ( 1 . 0 + 
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1 4.0 * DELTA)) 

WRITE ( 6 1 959) I, XMINER(I) 

IF ( TOLSTk .GT. CRITST) GU TO 330 
J = J + 1 
WRITE (6, 961) J 
GO TO 336 
330 CONTINUE 
451 WRITE (6, 961) J 
C 

C CALCULATE THE TOTAL MOMENT OF INERTIA OF THE MIDSHIP SECTION. 

C 

CALL PMINERl TH1 f BLMOM , ARE APT, XMOMIN, XINER ) 

WEIGHT = 6.8 * AREAPT 
DO 335 I = 1, 5 
335 XLNGTL ( 2 , I ) = XLGTNL(J,I) 

K = 1 

SLOP E2 ( X ) = ( X L 0 NGL ( K , 3 ) - X L ONGL ( K , 1) ) / ( XLONGL ( K, 2 J-XLONGL I K, 4 ) ) 

III = XLNGTL(l,4)*(-SL0PE2(K))/(i2.*SQRT(l.+(SL0PE2(K)**2)) ) 

ZPOINT = XLONGL ( K , 2 ) + III 

BASEMT(K) = ZPOINT 

WRITE 16, 962) K, BAS EM T ( K ) 

DO 340 K = 2, 40 
IF (K .GT. ILONGL) GU TO 810 
IF ( XLONGL ( K , 2 ) .EQ. 0.0) GO TO 810 
IF (K .LT. ICOUNT) GO TO 1811 
IF (K .GT. ICOUNT) GO TO 1811 
BASEMTIK) = 0.0 
GO TU 340 
1811 CONTINUE 

SLOP E2 ( K ) = ( XLONGL ( K » 3 ) -XLONGL (Nil) )/( XLONGL ( K , 2 ) -XLONGL ( K , 4 ) ) 

III - XLNGTL ( 2,4 )#( -SL0PE2! K) )/l 12. -SORT! 1 . + ( SL0PE2 ( K ) **2 > ) ! 

ZPOINT = XLONGL ( K , 2 ) + III 
BASEMTIK) = ZPOINT 
340 WRITE16, 962) K, BASEMTIK) 

810 AREAPT = 2.0 * AREAPT 
BLHOM = BLMOM * 2.0 
XMOMIN = 2.0 * XMOMIN 
K = 1 

ADINER = XLNGTL<l»3)*BASEMTU)**2 + XLNG T L ( 1 , 2 ) / 1 44 . + ( XL MGTL t 1 , 1 
1) - XLNGTL! 1,2) ) *2 . *ABS l A T AN! SLOPE 2 ! K ) ) / ( 144. *3. 1416) ) 

XMOMIN = XMOMIN + ADINER 

BLMOM = BLMOM + BASEMT { K ) -XLNGTL ( 1 , 3 ) 

AREAPT = AREAPT + XLNGTL(1,3) 

DO 350 K = 2, 40 

IF ( XLONGL ( K , 2 ) .EQ. 0.0) GO TO 351 
IF (K .GT. ILONGL) GO TO 351 

ADI NER = XLNGTL ( 2, 3)*BASEMT(K) **2 + XLNGTL ( 2 , 2 ) / 144 . + (XLNGTL(2,1 
1) - XLNGTL! 2, 2) ) *2.*A3S (ATAN! SL0PE2! K) ) /( 144. *3. 1416) ) 
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IF (K .EG. I LONG L) GO TO 33 2 
IF (K . EQ. iQCJNI) GO TO 350 
3S3 XMOMIN = XMOMIN + 2.0 - AO I NER 

BLOOM = 3 L M 0 M + 2.0 * BAS EM T ( K ) *XLNGTL ( 2 , 3 ) 

ARE APT = AREAPT + 2.0 * XLNGTL(2,3) 

GO TO 35C 

352 IF ( XLUNGL I I LONGL » 1 ) .GT. 0.0) GO TO 353 
XMOMIN = XMOMIN + AD I NEK 

8LM0M = BLMOM + 8ASEMTIK) * XLNGTL ( 2 , 3) 

AREAPT = AREAPT + XLNGTL I 2 » 3) 

350 CONTINUE 

351 ZNAXIS = BLMOM / AREAPT 

XINER = AbS (ZNAXIS*! ( BLMOM** 2 ) - AREAPT *XMQMIN) /BLMOM) 

REQ M IN = 74100. * 2b. 231247 / 13.93 

DO 807 KK = I, 40 

IF I SPAN! KK ) .GT. 0.0) GO TO 307 





S PAN ( KK ) 


= 0.0 




807 


CONTINUE 








IR = 1 








WRITE (6, 


933) IR, 


SPAN ( IR) 




DO 600 IR 


= 2, 40 




600 


WRITE (6, 


934) IR, 


S P A N ( I R) 



804 WRITE (6, 91 2) 

DO 806 KK= 1, 40 

806 WRITE(6*911) KK » X LONG L ( KK » l ) , XLGNGL ( KK » 2 ) » XLONGL I KK » 3 ) » 

1 XLONGL ( KK * 4 ) ,SPANIKK) » SMODMN IKK) 

WRITE (6,915) RE3MIN 

WRITE (6,916) XINER 

WRITE (6,917) ST1CRK 

ASTRSS = 74100. * ZNAXIS / XINER 

WRITE (5,913) ASTRSS 

WRITE (6,019/ ST1CRD 

BSTRSS = 54400. * (26.231247 - ZNAXIS) / XINER 
WRITE (6, 920) BSTRSS 

ADD IN THE WEIGHT CONTRIBUTION OF THE MAIN TRANSVERSE FRAMES. 

WT0TL3 = AREAPT * 3.4 + 2859. *(1.0 + ( 0 . 3333* ( FRM-8 . ) /8 . ) ) / 

1 (FRM) 

WFRAME = WT0TL5 - 3.4 * AREAPT 
WTOTAL = WTGTL5 / 2240. 

WRITE (6,921) WTOTAL 
WRITE ( b , 92 2 ) W TOT L 8 
' WRITE (6, 1921) WEIGHT 

WLQNGL = WTOTLB - WEIGHT - WFRAME 
WRITE (6, 1922) WLQNGL 

WRITE (6,1923) WFRAME 
WRITE (6, 923) ZNAXIS 
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WRITE (6,926) J , XLNGTL (2,3/ , XLNG TL ( 2 , 5 ) 
WRITE l 6 ,<3?o» AL.MGILI 1,3) , XLNGTLl 1,5) 
WRITE (6, 963) THI 
IF (STICRK .IT. ASTRSS ) GO TO 421 
IF (ST1CRQ .GT. 3STRSS) GO TO 500 
421 ATH1 = THI 

WRITE (6, 926) 

IF (THI - C . 5 ) 401, 402, 403 

402 THI = 0.625 
GO TO 400 

403 IF (THI - 0.875) 404, 405, 406 

405 THI = 0.9375 
GO TO 400 

406 I F ( THI - 0.9375) 405,407,408 

407 THI = 1.0 
GO TO 400 

408 rtRITE (6, 926) 

GO TO 420 

401 I F ( THI - 0.3125) 409, 410, 411 

410 THI = 0.34375 
GO TO 400 

409 IF (THI - 0.28125) 412, 413, 410 

413 THI = 0.3125 
GO TO 400 

412 THI = 0.28125 
GO TO 400 

411 IF (THI - C.375) 414, 415, 416 

415 THI = 0.4375 
GO TO 400 

414 THI = 0.375 
GO TO 400 

416 THI = 0.500 
GO TO 400 

404 I F ( THI - 0.75) 417, 413, 405 
418 THI = 0.875 

GO TO 400 

417 THI = 0.75 
GO TO 400 

420 STOP 
END 
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Calculate plating thick- 
ness, naxinun span to 
first longitudinal. 



Locate shell longitudi- 
nals. 



Adjust locations if 
necessary. 



Locate deck longitudi- 
nals. 



FIGURE III 



MAIN PROGRAM RUNS CORE FLOW CHART 




- - 




Adjust locations if 
necessary. 



Satisfy requirements 
as to minimum radius 
of gyration. 



Satisfy requirements 
as to stiffener 
strength. 



Satisfy requirements 
as to stiffener 
critical strength. 



FIGURE III - Continued 





_ LJj. _ 




Chock total section 
characteristics . 



Check for adequacy of 
midship section. 



If stresses are too 
great, increase plat- 
ing thickness, repeat 
calculation. 



FIGURE III - Continued 
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J 


PTOATA ( I , J , l ) 


P TDAT A ( I , J, 2) 


p r dai 


1 
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0.019255 
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1.000000 
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0.20006 1 
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• 


0.603478 


Y PR = 8.400000 


Z°R = 0.564682 


CLUNGL 


OUTPUT = 


3.096 ! 74 


9.684793 


8 .667541 


W53ACT 


= 2.162113 


w 5 6 P R C - 


2.190565 W5BTUL 


= 2.190565 


SPANt 4) = 2 . 190 5 o5 I = 


r\J 

li 

-> 




W58ACT 


= 2.162113 


W53PRC = 


2.190565 d 5 BTGL 


= 2.213699 


I = 


4 J = 3 


SUMOST 


= 0.538662 




I = 


4 J = 4 


SUMOST 


= 0.944335 




L = 


4 J = 5 


SUMOST 


= 1.350987 




I = 


4 J = 6 


SUMOST 


= 1.758848 




I = 


4 J = 7 


SUMOST 


= 2.168156 




I = 


4 J = 8 


SUMOST 


= 2.579186 




Y = 10 


. d443 17 Z = 


1.002817 


Y PR = 10.799995 


ZPR = 0.992337 


CLONGL 


OUTPUT = 


3.096774 


9.388797 


10.844317 


W58ACT 


= 2.162113 


W56PRC = 


2.213699 W5BTUL 


= 2.213699 


SPAN ( 5) = 2.2 13o99 I = 


x> 

II 




W58ACT 


= 2.162113 


W58PRC = 


2.213699 W56T0L 


= 2.248323 


I = 


4 J = 9 


SUMOST 


= 0.778546 




1 I = 


4 J = 10 


SUMOST 


= 1.193976 




I = 


5 J = 1 


SUMOST 


= 1.397257 




I = 


5 J = 2 


SUMDST 


= 1.601236 




I = 


5 J = 3 


SUMOST 


= 1.305963 




I = 


5 J = 4 


SUMOST 


= 2.011485 




I = 


5 J = 5 


SUMDST 


= 2.217855 




I = 


5 J = 6 


SUMOST 


= 2.425129 




Y = 13 


.002581 Z = 


1.627934 


YPR = 12.973948 


ZPR = 1.617520 


CLONGL 


OUTPUT = 


3.096774 


8.945485 


13 .002581 



W58ACT 




2.162113 


U 56 PRC = 


2 


.248323 


W58TOL 


= 


2.248323 


SPANt 6) 


= 2.248323 I = 


5 


J = 6 








H58ACT 


— 


2. 162113 


w 5BPRC = 


2 


.248323 


W58T0L 


— 


2.303361 


I = 


5 


J = 7 


SUMDST 


= 


0.385037 








I = 


5 


J = 8 


SUMDST 


= 


0.594287 . 








I = 


5 


J = 9 


SUMDST 


= 


0.804614 








I = 


5 


J = 10 


SUMDST 


= 


1.015530 








I = 


6 


J = 1 


SUMDST 


= 


1.239614 








I = 


6 


J = 2 


SUMDST 


= 


1.465177 








I = 


6 


J = 3 


SUMDST 


= 


1.692369 








I = 


6 


J = 4 


SUMDST 


- 


1.921377 








I = 


6 


J = 5 


SUMDST 


- 


2. 152349 








I = 


6 


J = 6 


SUMDST 


= 


2.385499 








Y = 15 


;. 


106862 Z = 


2.559123 


YPR = 14.973948 


ZPR 


= 2.487440 


CLUNGL 


OUTPUT = 


3.096774 




8.326877 


15. 


106862 


*53ACT 


- 


2. 162113 


W5SPRC = 


2 


.303361 


W5BT0L 


— 


2.303361 



. 60 3473 



.002317 



.627934 



.559123 



SPAM 7) = 2.3C336L t = • 6 J = 6 



W53ACT = 
I = 6 


2.16 

J 


2113 
= 7 


A 5 3PRC = 
SUMDST 


-52- 

2. 30 3 3 6 1 
= 0.317640 


W 5 B T (J L 


= 


2.387387 


I = 6 


J 


= 


8 


SUMDST 


= 0.555713 








I = 6 


J 


= 


9 


SUMDST 


= 0.796553 








I = 6 


J 


- 


10 


SUMO ST 


= 1.047133 








I = 7 


J 




1 


. SUMDST 


= 1.138572 








I = 7 


J 




2 


SU.MDST 


= 1.331222 








I = 7 


J 


- 


3 


SUMOST 


= 1.475191 








I = 7 


J 




4 


SUM US T 


= 1.620585 








I = 7 


J 


= 


5 


SUMOST 


= 1.767613 








I = 7 


J 




6 


SUMDST 


= 1.916717 








I = 7 


J 


- 


7 


SUMDST 


= 2. 06 7707 








I = 7 


J 


= 


8 


SUMDST 


= 2.220990 








I = 7 


J 


= 


9 


SUMDST 


= 2.376628 








I = 7 


J 




10 


SUMDST 


= 2.527033 








Y = 17.067734 




Z = 


3.912447 


YPR = 17.059357 


ZPR 


= 3.90570 


W5BACT = 


2. 162113 


rt 5 3 P R C = 


2 .337387 


W5BT0L 


= 


2.337387 


CLONGL OUTPUT 


= 




3.096774 


7.506919 




17. 


067734 


W56ACT = 


2. 162113 


a 53PRC = 


2.387387 


a 5B T OL 


= 


2.3d 7387 


SPAN! 8) 


= 


2. 


337337 I = 


7 J = 10 








W53ACT = 
I = 8 


2. 162113 
J = 1 


W5BPRC = 
SUMDST 


2. 337387 
= 0.432994 


W5BT0L 


= 


2.514391 


I = 8 


J 


= 


2 


SUMDST 


= 0.720609 








I = 8 


J 


- 


3 


SUMOST 


= 1.002813 








1 I = 8 


J 


= 


4 


SUMDST 


= 1.279888 








I = 8 


J 


- 


5 


SUMDST 


= 1.552101 








I = 8 


J 


T 


6 


SUMDST 


= 1.819724 








I = 3 


J 


- 


7 


SUMDST 


= 2.083022 








I = 3 


J 


= 


8 


SUMDST 


= 2.342276 








I = 8 


J 


— 


9 


SUMDST 


= 2.597717 








Y = 18. 


794434 




Z = 


5.734756 


YPR = 18.687378 


ZPR 


= 5.59999 


CLONGL OUTPUT 






3.096774 


6.528984 


18. 


794434 


W5BACT = 


2. 162113 


W5BPRC = 


2.514391 


W5BT0L 


= 


2.514391 


SPAN! 9) 


= 


2. 


514391 I = 


8 J = 9 








W5BACT = 
I = 8 


2. 162113 
J = 10 


W5BPRC = 
SUMOST 


2.514391 
= 0.335511 


W58T0L 


= 


2.696131 


I = 9 


J 


= 


1 


SUMDST 


= 0.529975 








I = 9 


J 


= 


2 


SUMDST 


= 0.722415 








I = 9 


J 


= 


3 


SUMOST 


= 0.912863 








I = 9 


J 




4 


SUMOST 


= 1.101335 








I = 9 


J 


- 


5 


SUMDST 


= 1.287874 








I = 9 


J 


= 


6 


SUMDST 


= 1.472521 








I = 9 


J 


— 


7 


SUMDST 


= 1.655266 








I = 9 


J 


= 


8 


SUMDST 


= 1.836177 








I = 9 


J 


= 


9 


SUMDST 


= 2.015270 








1=9 


J 


= 


10 


SUMDST 


= 2.191730 








I = 10 


J 




1 


SU MOST 


= 2.241062 








I = 10 


J 


- 


• 2 


SUMDST 


= 2.290276 








I = 10 


J 


= 


3 


SUMDST 


= 2.339369 








I = 10 


J 




4 


SUMDST 


= 2.338368 








I = 10 


J 


- 


5 


SUMDST 


= 2.437263 








I = 10 


J 


= 


6 


SUMDST 


= 2.486099 









.912447 



.734756 



I = 


10 


J = 6 


SUMO ST 


= 2.5o3556 






I = 


10 


J = 9 


SUM0S1 


= 2.632205 






I = 


io 


J = 10 


su.mos r 


= 2.681940 






I = 


i i 


J = 1 


SUMDST 


= 2.903623 






Y = 20. 


22 52 3 3 7. = 


8 .012792 


Y PR = 20.219101 


ZPK 


= 8.000000 


CLONGL i 


OtlTPlT = 3 


.096774 


5.473167 


20. 


225235 


W5BACT 


= 


2.162113 


W53PRC = 


2.696131 W56T0L 


- 


2.696131 


SP AN ( 10) 


= 2.6961 


31 1 = 1 


1 J = 1 






W58ACT 

I = 


n 


2. 162113 
J = 2 


W5BPRC = 
SUMDST 


2.696131 W5BTQL 

= 0.428886 


= 


2.944719 


I = 


n 


J = 3 


SUMDST 


= 0.649316 






I = 


n 


J = 4 


SUMDST 


= 0.868906 






I* = 


n 


J = 5 


SUMDST 


= 1.087596 






I = 


1 1 


J = 6 


SUMDST 


= 1.305339 






I = 


u 


J = 7 


SUMDST 


= 1.522C44 






I = 


u 


J = 8 


SUMDST 


= 1.737678 






I = 


n 


J = 9 


SUMDST 


= 1.952217 






I = 


n 


J = 10 


SUMDST 


= 2.165445 






I = 


12 


J = l 


SUMDST 


= 2.377673 






I = 


12 


J = 2 


SUMDST 


= 2.588840 






1 = 


12 


J = 3 


SUMDST 


= 2.799034 






I = 


12 


J = 4 


SUMDST 


= 3.008346 






t 

Y = 21. 


329575 Z = 


1C .739202 


YPR = 21.286606 


ZPR 


= 10.599998 


CLONGL i 


OUTPUT = 3 


.096774 


4.402401 


21 . 


329575 


W5BACT 


= 


2. 162113 


W5BPRC = 


2.944719 W58T0L 


= 


2.944719 


SPAN! 11 ) 


= 2.944719 I = 1 


2 J = 4 






W5BACT 
I = 


12 


2. 162113 
J = 5 


W58PRC = 
SUMDST 


2.944719 W56TGL 

= 0.272135 


= 


3.283364 


I = 


12 


J = 6 


SUMDST 


= 0.479927 






I = 


12 


J = 7 


SUMDST 


= 0.687077 






I = 


12 


J = 8 


SUMDST 


= 0.893653 






I = 


12 


J = 9 


SUMDST 


= 1.099717 






I = 


12 


J = 10 


SUMDST 


= 1.305297 






I = 


13 


J = 1 


SUMDST 


= 1.561737 






I = 


13 


J = 2 


SUMDST 


= 1.817595 






I = 


13 


J = 3 


SUMDST 


= 2.072915 






I = 


13 


J = 4 


SUMDST 


= 2.327721 






I = 


13 


J = 5 


SUMDST 


= 2.582062 






I = 


13 


J = 6 


SUMDST 


= 2.835966 






I = 


13 


J = 7 


SUMDST 


= 3.089468 






I = 


13 


J = 8 


SUMDST 


= 3.342599 






Y = 22. 


042709 Z = 


13 .941499 


YPR = 22.012314 


ZPR 


= 13.750000 


CLONGL 


OUTPUT = 3 


.096774 


3.351851 


22. 


042709 


W 5 3 AC T 


= 


2. 162113 


W5BPRC = 


3.283364 W53T0L 


= 


3.283364 


SPAN ( 12 ) 


= 3.283364 I = 1 


3 J = 8 


i 




W53ACT 
I = 


13 


2.162113 
J = 9 


W58PRC = 
SUMDST 


3.283364 W5BT0L 

= 0.31202b 


= 


3.762691 


I = 


13 


J = 10 


SUMDST 


= 0.564520 






I = 


14 


J = 1 


SUMDST 


= 0.715866 






I = 


14 


J = 2 


SL'Mnsr 


= 0.867115 







012 792 



739202 



941499 



I = L '+ J = 

1=14 J = 
I = 14 J = 
L = 14 J = 
I = 14 J = 
I = 14 J = 
I = 14 J = 
I = 15 J = 
I = 15 J = 
1=15 J = 
I = 15 J = 
1=15 J = 
I = 15 J = 
1=15 J = 
1=15 J = 
I = 15 J = 



V = 22.394119 



J IV 1 u 3 i = 

SUMD ST = 
SUMO SI = 
SUMDSI = 
SUM OS T = 
SUMO ST = 
SUMDST = 
SUMO ST = 
SUMDST = 
SUMDST = 
SUMDST = 
SUMDST = 
SUMDST = 
SUMDST = 
SUMDST = 
SUMDST = 

Z = 17.635715 



1 . i69j>19 
1 . 320289 

1 . 471170 

1 .621969 
1 .772695 
1.923343 
2.0 7392o 
2.274590 
2.475154 
2.675629 
2.676027 
3.0763ol 
3.276639 
3.476873 
3.677068 
3.677233 

YPR = 22.390610 



ZPR = 17.599976 

1 



CLONGL OUTPUT = 



3.096774 



2.714253 



22.394119 



<+ 

5 

6 

7 

8 
9 

10 

1 

2 

3 

4 

5 

6 

7 

8 
9 



W5BACT = 2.162113 W58PRC 



3.762891 W58T0L = 3.762891 



SP AN ( 1 3 ) = 3.762891 I =15 J = 9 



W58ACT 


= 


2.162113 


W5BPRC = 


3 


. 7o289 1 


W58T0L = 


4.181564 


I 


— 


15 


J 


= 


10 


SUMDST 


= 


0.314507 






I 


S 


16 


J 


= 


1 


SUMDST 


= 


0.514625 






I 


- 


16 


J 


- 


2 


SUMDST 


= 


0.714724 






I 


s 


16 


J 


= 


3 


SUMDST 




0.914804 






I 


= 


16 


J 


= 


4 


SUiMOST 


- 


1.1 14867 






I 


- 


16 


J 


= 


5 


SUMDST 


- 


1.314916 






I 


- 


16 


J 


- 


6 


SUMDST 


= 


1 .514950 






I 




16 


J 


= 


7 


SUMDST 


= 


1.714972 






I 


- 


16 


J 


- 


8 


SUMDST 


= 


1.^14585 






I 


= 


16 


i 

U 


- 


9 


SUMDST 


= 


2 . 11^990 






I 


= 


16 


J 


- 


10 


• SUMDST 


- 


2. 315019 






I 


- 


17 


J 




1 


SUMDST 


= 


2.515017 






I 


= 


17 


J 


- 


2 


SUMDST 


- 


2.715014 






I 


- 


17 


J 


= 


3 


SUMDST 


= 


2.915012 






I 


- 


17 


J 


= 


4 


SUMDST 


= 


3.115014 






I 




17 


J 


= 


5 


SUMDST 


- 


3.315020 






I 


= 


17 


J 


= 


6 


SUMDST 


= 


3.515031 






I 


— 


17 


J 


= 


7 


SUMDST 


- 


3.715050 






I 


= 


17 


J 


= 


8 


SUMDST 


= 


3.915074 






I 


- 


17 


J 


— 


9 


SUMDST 


= 


4.115107 






1 


= 


17 


J 




10 


SUMDST 




4.315178 




/ 


y i 


= 22.' 


429413 




Z = 


21.866409 


YPR = 22.430832 ZPR 


= 21.799973 


W5BACT 




2. 162113 


W56PRC = 


4 


.131564 


*56T0L = 


4.181564 



CLONGL OUTPUT = 3.096774 2.061488 22.429413 2 



W5BACT = 


2.162113 


W58PRC = 


4.181564 


W5 3T0L = 


4.131564 


SPAN ( 14) 


= 


4. 


181564 I = 


17 J = 10 






W56ACT = 


2. 162113 


W5BPRC = 


4.181564 


W56TUL = 


3.582263 


I = 18 


J 


= 


1 


SUMDST 


= 0.333661 






I = 18 


J 


= 


2 


SUMDST 


= 0.533715 






I = 18 


J 


= 


3 


SUMDST 


= 0.733774 






I = 18 


J 




4 


SUMDST 


= 0.933838 






I = 18 


J 


= 


5 


SUMDST 


= 1 . 1 3390 6 






I = 18 


•J 




6 


SUMDST 


= 1.333976 







.685715 



.866409 



I = 


18 


J 




8 


SUMO ST 


I = 


18 


J 


- 


9 


S U M 0 S i 


I = 


16 


J 


- 


10 


SUMO ST 


I = 


19 


J 


= 


1 


SUMO ST 


I = 


19 


J 


= 


2 


SUhDST 


I = 


19 


J 


= 


3 


SUMCST 


I = 


19 


J 




A 


SUMO SI 


I. = 


19 


J 


= 


5 


SUM J ST 


I = 


19 


J 


= 


6 


SUMDST 


I = 


19 


J 


= 


7 


SUMDST 


I = 


19 


J 


= 


8 


SUMDST 


l = 


19 


J 


= 


9 


SUMDST 


I = 


19 


J 




10 


SJMDST 


SP AN ( 


15) 


= 


3. 


374258 


I = 


Y = 


22. 


343796 




Z = 25 


.239594 


I = 


20 


J 


= 


1 


SUMOST 


I = 


20 


J 


= 


2 


SUMDST 


I = 


20 


J 


= 


3 


SUMDST 


I = 


20 


J 


= 


4 


SUMDST 


I = 


20 


J 


= 


5 


SUMDST 


I = 


•20 


J 


= 


6 


SUMOST 


I = 


20 


J 


- 


7 


SUMDST 


I = 


20 


J 


= 


8 


SUMDST 


I = 


20 


J 


- 


9 


SUMDST 


I = 


20 


J 


= 


10 


SUMDST 


I = 


21 


J 


= 


1 


SUMDST 


I = 


21 


J 


= 


2 


SUMDST 


I = 


21 


J 




3 


SUMDST 


I = 


21 


J 


= 


4 


SUMDST 


I = 


21 


J 




5 


SUMDST 


I = 


21 


J 


= 


6 


SUMOST 



1.734119 

1 . >34190 

2 . L 342 8 1 
2.256256 
2 .362244 
2.506231 
2.630234 
2 . 7 542 L 9 
2.876203 
3.002172 
3.126157 
3.2501^1 
3.374258 

J = 1C 

YPk = 22.343796 ZPR = 25.239594 
0.2240C5 
0.447993 
0.671974 

0. 895963 

1 . 1 19967 
1 . 343939 
1 .567926 
1.791924 
2.015907 
2.239871 
2.463848 
2.68 7 837 
2.911792 
3.135758 
3.359739 
3.583699 



Y = 18.769989 Z = 25.486084 YPK 
CLONGL OUTPUT * 3.096774 

W58ACT = 2.162113 W56PRC = 3.5 

SPAN (16) = 3.582268 I = 21 J 



= 18.992035 ZPR = 25.471035 
1.329552 18.769989 

82268 W5BTUL = 3.562263 

= 6 



2 



5. 



486084 



W5BACT 




2. 162113 


W56PRC = 


I = 


21 


J 


= 7 


SUMDST 


I = 


21 


J 


= 8 


SUMDST 


I = 


21 


J 


= 9 


SUMDST 


I = 


21 


J 


= 10 


SUMDST 


I = 


22 


J 


= 1 


SUMDST 


I = 


22 


J 


= 2 


SUMDST 


I = 


22 


J 


= 3 


SUMDST 


I = 


22 


J 


= 4 


SUMDST 


I = 


22 


J 


= 5 


SUMDST 


I = 


22 


J 


= 6 


SUMDST 


I = 


22 


J 


= 7 


SUMDST 


I = 


22 


J 


= 8 


SUMDST 


I = 


22 


J 


= 9 


SUMDST 


I = 


22 


J 


= 10 


SUMDST 



3.532268 W5BTOL = 3.019865 

= 0.225371 

= 0.449340 

= 0.673287 

= 0.697214 

= 1.121151 

= 1.345098 

= 1.569009 

= 1.792931 

= 2.016862 
= 2.240771 

= 2 . 464o5 8 

= 2.688555 

= 2.912435 

= 3.136307 



Y = 15.756542 Z = 25.682541 
W5BACT = 2.162113 W58PRC = 

CLOimGL OUTPUT = 3.096774 



YPR = 15.863767 ZPR = 25.675858 
3.019365 W56TOL = 3.019865 

1.284049 15.756542 2 5.682541 



W53PRC = 3.019865 



W5BACT 



2. 16 21 1 a 



W5RTOL 



3.019865 



I 



22 J 



10 



SP AN ( 17) = 3.019305 



W5BA 


CT = 


2. 16 


2113 


W5GPRC = 


1 


= 23 


J 


= 


1 


SUMDST 


I 


= 23 


J 


= 


2 


SUMDST 


I 


= 23 


J 


= 


3 


SUMDST 


I 


= 23 


J 




4 


SUMDST 


I 


= 23 


J 


- 


5 


SUMDST 


I 


= 23 


J 


= 


6 


SUMDST 


I 


= 23 


J 


= 


7 


SUMDST 


I 


= 23 


J 


= 


8 


SUMDST 


I 


= 23 


J 


- 


9 


SUMDST 


I 


= 23 


J 


= 


10 


SUMDST 


I 


= 24 


J 




1 


SUMDST 


I 


= 24 


J 


= 


2 


SUMDST 


I 


= 24 


J 




3 


SUMDST 


Y = 


12. 


798687 




Z = 


25.856 140 



- 56 - 

3.019865 W5BT'JL = 2.962945 

= 0.340307 

= 0.5o4165 

= 0 . 7 68C 1 6 

= 1.011861 
= 1.235697 

= 1.459523 

= 1.683344 

= 1.907159 

= 2.130963 

= 2.354750 

= 2.578547 

= 2.80233 0 

= 3.026100 

YPR = 12.959067 ZPR = 25.847382 



CLONGL OUTPUT = 3.096774 



1.243269 12.798687 25.856140 



i 



W53ACT = 2.162113 W5BPRC = 2.962949 W5BT0L 



SP AN ( 18) = 2.962949 I = 24 J = 3 



W58ACT 




2. 162113 


W5BPRC = 


2.962949 W5BTUL 


I 




24 


J = 


4 


SUMDST 


= 0.286916 


I 


= 


24 


J = 


5 


SUMDST 


= 0.510673 


I 


— 


24 


J = 


6 


SUMDST 


= 0.734420 


I 


= 


24 


J = 


7 


SUMDST 


= 0.958159 


I 




24 


J = 


8 


SUMDST 


= 1.181889 


I 


= 


24 


J = 


9 


SUMDST 


= 1.405612 


I 


= 


24 


J = 


10 


SUMDST 


= 1.629326 


I 


= 


25 


J = 


1 


SUMDST 


= 1.853028 


I 


- 


25 


J = 


2 


SUMDST 


= 2. j7o 724 


I 


= 


25 


j = 


3 


SUMDST 


= 2.600413 


I 


= 


25 


J = 


4 


' SUMDST 


= 2.524093 


I 




25 


J = 


5 


SUMDST 


= 2.747762 


I 


= 


25 


J = 


6 


SUMDST 


= 2.971424 


Y 




9. 


862784 


Z = 


26 .002213 


YPR = 10.054372 



ZPR 



2.962949 



2.939541 



= 25.993622 



CLONGL OUTPUT = 3.096774 



1.208532 



9.862784 26.002213 



W5BACT = 2.162113 W5BPRC = 2.939541 W5BT0L 

SPAN ( 19 ) = 2.939541 I = 25 J = 6 



W58ACT 

I 
I 
I 

I = 25 J 

I = 26 J 

I = 26 J = 

I = 26 J = 

I = 26 J = 

I = 26 J = 

I = 26 J = 

I = 26 J = 

I = 26 J = 

I = 26 J = 



W58PRC = 
SUMO ST = 

8 SUMDST = 

9 SUMDST = 

10 SUMDST = 

1 SUMDST = 

2 SUMDST = 

3 SUMDST = 

4 SUMDST = 

5 SUMDST = 

6 SUMDST = 

7 SUMDST = 

8 - SUMDST = 

9 SUMDST = 



2.939541 W5BT0L 
0.255539 
0.479186 
0.702823 
0.926453 
1 .150075 
1.373689 
1.597293 
1 . 820891 
2.044482 
2.268063 
2.491637 
2.715206 
2.938766 



= 2.162113 

5 J = 

= 25 J = 

= 25 J = 



Y = 6.943064 Z = 26.11540 2 YPR = 7.149673 



ZPR 



2.939541 



2.921926 



= 26.108582 



W 5 S P K u 



W53T0L 



2.921926 



w 5 6 a w T = 

SP AN ( 2 0 ) 

W5BACT = 
I = 26 
I = 27 
I = 27 
I = 27 
I = 27 
I = 27 
I = 27 
I = 27 
I = 27 
I = 27 
I = 27 
I = 28 
I = 28 



2. 16 2113 
= 2.921926 



- 57 - 

= 2.921926 

I = 26 J = 9 



2. lt> 2 1 13 



J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 



10 

1 

2 

3 

4 
3 
6 

7 

8 
9 

10 

1 

2 



a 5 B P K C = 
SUMO ST 
suMosr 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 



2.921926 
0.240B92 
: 0.463939 

0.68/479 
= 0.911013 

1.134539 
: 1.358059 

1.581574 
= 1.805083 

2.028584 
2.252082 
= 2.475574 

= 2.699061 

2.922544 



W58T0L = 2.908485 



Y = 4.035593 Z = 26.191359 YPR = 4.244977 ZPR = 26.187378 



CLONGL OUTPUT = 



3.096774 



1 . 162918 



4.035593 



26. 191559 



W58ACT 


— 


2. 162113 


^56PRC = 


2 


.908485 


W5BT0L 


- 


2.908485 


SPAN l 2 1 ) 


= 2.908 


485 


I = , 


28 


J = 2 








W58ACT 


— 


2.162113 


53PRC = 


2 


.908485 


W5BT0L 


= 


2.899400 


I = 


28 


J = 3 




SUMDST 




0.237537 








I = 


28 


J = 4 




SUMDST 


- 


0.461C10 








I = 


28 


J = 5 




SUMDST 


= 


0.684479 








I = 


28 


J = 6 




SUMDST 


= 


0.907945 








I = 


28 


J = 7 




SUMDST 


= 


1.131408 








I = 


28 


J = 8 




SUMDST 


- 


1.354866 








I = 


28 


J - 9 




SUMDST 


- 


1. 378321 








I = 


28 


J = 10 




SUMDST 


= 


1.801773 








I = 


29 


J = 1 




SUMDST 




2.025224 








I = 


29 


J = 2 




SUMDST 




2.248672 








I = 


29 


J = 3 




SUMDST 


- 


2.472116 








I = 


29 


J = 4 




SUMDST 


- 


2.695560 








I = 


29 


J = 5 




SUMDST 




2.919003 








Y = 


1. 


136441 Z = 


26 


.228058 


YPR = 1.340280 


ZPR 


= 26.226822 


CLONGL i 


OUTPUT = 


3.096774 




1. 154048 


1. 


136441 26.228053 


W56ACT 


= 


2. 162113 


W5BPRC = 


2 


.899400 


W5BT0L 


= 


2.899400 


SPAN! 22 J 


= 2.899400 


I = 


29 


J = 5 








W5BACT 




2. 162113 


W5BPRC = 


2 


.899400 


W53TOL 


— 


2.894860 


I = 


29 


J = 6 




SUMDST 




0.243043 








I = 


29 


J = 7 




SUMDST 


= 


0.466482 








I = 


29 


J = 8 




SUMDST 




0.689921 








I = 


29 


J = 9 




SUMDST 


= 


0.913359 








I = 


29 


J = 10 




SUMDST 


= 


1 .136448 








I = 


30 


J = 1 




SUMDST 


= 


1 . 136448 









I 

2 

3 

4 

3 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 



Y 


z 


YPR 


ZPR 


SPAN! I ) 


4.326030 


0.154977 


4 .000000 


0.135401 


2 . 166965 


6.493771 


0.334096 


6.399998 


0.324254 


2. 1 7528C 


8.667541 


0 • 60 347 8 


8 .400000 


0 . 5 a 4 o 8 2 


2 .190565 


10.844317 


1.002317 


10. 799^96 


0.992337 


2.213699 


13.002581 


1.6 27 934 


12.973948 


1.617520 


2.248323 


15.106862 


2.559123 


14.973948 


2.48 7440 


2 . 30336 I 


1 7.067734 


3.9 L 2447 


17.059357 


3.905701 


2.387387 


13. 794434 


5.734756 


18.68737a 


5.599993 


2.514391 


20.225235 


3.012792 


20.219101 


8 . 090000 


2.696131 


21 .329575 


10.739202 


2L .2866C6 


10.599993 


2 .944719 


22.042709 


13.941499 


22.012314 


13. 750C00 


3.283364 


22.394119 


17.685715 


22.390610 


17.599976 


3.762891 


22.429413 


21.866409 


22.430832 


21 . 799973 


4.131564 


22.343796 


23.239594 


22.343796 


25.239594 


3.374258 


18.769989 


25. 48o084 


13.992035 


25.471085 


3.58226b 


15.756542 


25.682541 


15.863767 


25 .675858 


3.019865 


12.798687 


25.856140 


12.959067 


25.347382 


2.962949 


9.862 784 


26.002213 


10.034372 


25.993622 


2.939541 


6 .943064 


26. 115402 


7.149673 


26. 108582 


2.921926 


4.035593 


26.191559 


4.244977 


26.137378 


2 . 9084a5 


1.136441 


26.228058 


1.340280 


26.225822 


2 .899400 


0.0 


0.0 


0.0 


0.0 


1 . 13 6448 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


G.O 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0,0 


o.c 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


. ( 1 ) = 


1.459806 









LONGITUDINAL I 1) IS SELECTED 

CGCG ( 1) = 2.107491 

LONGITUDINAL ( 2) IS SELECTED 

CGCG I l) = 1.948315 

LONGITUDINAL ( 3) IS SELECTED 



CGCG ( 1) = 2.499537 

LONGITUDINAL ( 4) IS SELECTED 

A 

CGCG ( 1> = 3.166034 

LONGITUDINAL ( 5) IS SELECTED 



CGCG I 2) 



3. 1666 34 



CGCGI 3) 


3 . 1 665 34 „ tjC) 


LONG I T JO INAL 


( 5) IS S t L E c T E D 


CGCG ( 4) = 


3. 16 66 34 


t GNG I TOO INAL 


( 5) IS SELECTED 


CGCG ( 5) = 


3 . 1 o 66 34 


LONG I TOO I N AL 


l 5) IS SELECTED 


CGC G ( 6 ) = 


3.1b 66 34 


LONGITUDINAL 


( 6) IS SELECTED 


CGCG ( 7) = 


3.166634 


LONGITUDINAL 


( 5) IS SELECTED 


CGCG ( 8) = 


3. 166634 


LONGITUDINAL 


( 5) IS SELECTED 


CGCG ( 9) = 


3. 166634 


LONGITUDINAL 


(. 5) IS SELECTED 


CGCG ( l C ) = 


3.166634 


LONGITUD INAL 


( 5) IS SELECTED 


CGCG (11) = 


3.166634 


LONGITUDINAL 


{ 5) IS SELECTED 


CGCGQ2) = 


3. 166634 


LONGITUDINAL 


( 5) IS SELECTED 


CGCG ( 13 ) = 


3.166634 


LONGITUDINAL 


( 5) IS SELECTED 


CGCG ( 14 ) = 


3. 166634 


LONGITUDINAL 


( 5) IS SELECTED 


CGCG (15) = 


3.166634 


LONGITUDINAL 


( 5) IS SELECTED 


CGCG ( 16 ) = 


3 • 166634 


LONGITUD INAL 


( 5) IS SELECTED 


CGCG (17) = 


3.166634 


LONGITUD INAL 


( 5) IS SELECTED 


CGCG(ia) = 


3.166634 


LONGITUDINAL 


( 5) IS SELECTED 



LUNG 1 TUD INAL ( 5) IS SELECTED - 



60 



CGCG (20) = 3 . L 665 34 

LONGITUDINAL ( 5) IS SELECTED 

CGCG ( 2 I ) = 3.166634 

LONGITUDINAL ( 5) IS SELECTED 

CGCG (22) = 3.166634 

LONGITUDINAL ( 5) IS SELECTED 

I = 1 HM = 30. 174057 

LONGITUDINAL l 5) IS SELECTED 

I = 2 HM = 30.076263 

LONGITUDINAL I 5) IS SELECTED 

I = 3 HM = 29.897141 

LONGITUDINAL ( 5) IS SELECTED 

I = 4 HM = 29.627762 

LONGITUDINAL ( 5) IS SELECTED 

I = 5 HM = 29.228424 

LONGITUDINAL ( 5) IS SELECTED 

I = 6 HM = 28.603302 

LONGITUDINAL ( 5) IS SELECTED 

I = 7 HM = 27.672119 

LONGITUDINAL ( 5) IS SELECTED 

I = 8 HM = 26.318737 

LONGITUDINAL ( 5) IS SELECTED 

I = 9 HM = 24.496490 

LONGITUDINAL ( 5) IS SELECTED 

I = 10 HM = 22.213445 

LONGITUDINAL ( 5) IS SELECTED 

I = 11 HM = 19.492035 

LONGITUDINAL ( 5) IS SELECTED 

I = 12 HM = 1 6. 289 T 34 

LONG I TUO I N AL ( 51 IS SELECTED 

I = 13 HM = 12.545532 



r = 14 


HM 


- 


d . 36 48 3 8 


LONGITUDINAL ( 


5) 


IS SELECTED 


I = 15 


HM 


= 


4.991653 


LONGITUDINAL ( 


6) 


IS SELECTED 


I = 16 


HM 


= 


4. 7^5163 


LONGITUDINAL ( 


5) 


IS SELECTED 


I = 17 


HM 


= 


4. 548706 


LONGITUDINAL ( 


5) 


IS SELECTED 


I = 18 


HM 


= 


4.375 107 


LONGITUDINAL I 


5) 


IS SELECTED 


I = 19 


HM 


= 


4. 229034 


LONGITUDINAL I 


5) 


IS SELECTED 


I = 20 

c 


HM 


= 


4. 115845 


LONGITUDINAL ( 


5) 


IS SELECTED 


I = 21 


HM 


= 


4.039638 


LONGITUDINAL I 


5) 


IS SELECTED 


I = 22 


HM 


= 


4. 003189 


LONGITUDINAL ( 


5) 


IS SELECTED 


XMINERI 1) 






160.853306 


XMINERI 2) 


= 




160.353806 


XMINERI 3) 






160.853806 


XMINERI 4) 


= 




160.853806 


XMINERI 5) 


= 




160.853806 


XMINERI 6) 


= 




160.853806 


XMINERI 7) 


= 




160. 853306 


XMINERI 8) 






160.853806 


XMINERI 9) 


= 




1 60 . 85 330o 


XMINERI 10) 


= 




160.853306 


XMINERI 1 1 ) 






160.853806 


XMINERI 12) 


= 




160 . 853806 


XMINERI 13) 


- 




160 .853806 


XMINERI 14) 


zz 




160.853806 



61 - 

j 



160. 85380O 



62 



XMINERI16) = 

XM INER ( 1 7 ) = 

XMINER(18) - 
XM I N E R ( 1 9 > = 

XM IiMER ( 20 ) = 
XMINERI21) = 
XMINEK ( 22 ) = 
LONGITUDINAL ( 
0ASEMT ( 1) = 

8ASEMT ( 2) 
BASEMT ( 3) = 

BASEMT ( 4) = 

BASEMT ( 5) = 

BASEMT ( 6) 

BASEMT ( 7) 
BASEMT ( 8) 
BASEMT ( 91 
BASEMT (1C) 
BASEMT ( 1 1 ) 
BASEMT ( 12 ) = 

BASEMT (131 
BASEMT {141 
BASEMT (15) = 

BASEMT ( 16 ) = 

BASEMT ( 1 7 ) = 

BASEMT ( 18) 
BASEMT (19) = 

BASEMT ( 20 1 
BASEMT (21) 
BASEMT (22) 



160.853806 
160.853306 
160 .353806 

1 00 . 853806 

160.853806 

160.853806 

5) IS SELECTED 
1.465505 
0. 730327 
0.907333 
1 . 173897 
1.563735 
2.169605 
3.066433 
4.361360 
6. 093286 
8.262015 
10.909203 
14.031854 
17.709274 
21 . 854095 
0.0 

24.910995 
25 . 107269 
25.280609 
25.426392 
25. 539322 
25.615230 
25.651672 



SPAN ( 1) 


= 


2. 162113 


SPAN ( 2) 


- 


2 . i oo 96 5 


SPAN ( 3) 

« 


- 


2. 173230 


SPAN ( 4) 


= 


2. 1905o5 


SP AN ( 5) 


= 


2.213699 


S P A N ( t>) 




2.248323 


SPAN ( 7) 


= 


2.303361 


SP AN ( 8) 


= 


2.387387 


SPAN ( 9) 


= 


2.514391 


SPAN ( 10) 


= 


2.696131 


SPAN ( 1 1 ) 


= 


2.944719 


SPAN( 12) 


= 


3.283364 


SPAN( 13) 


= 


3.762891 


SPAN ( 14) 


= 


4.131564 


SPAN ( 15) 


= 


3.374258 


SPAN( 16) 


= 


3.582268 


SPAN ( 17) 




3.019365 


SPAN ( 13) 


= 


2.9o2949 


SPAN ( 19) 


= 


2.939541 


SPAN ( 20 ) 




2.921926 


SP AN ( 2 1 ) 


= 


2.908485 


SPAN ( 22 ) 


= 


2.899400 


SPANt 23) 


= 


1 .136448 


SPAN ( 24 ) 


= 


0.0 


SPAN ( 25 ) 


= 


o 

• 

o 


SPAN (26) 


- 


0.0 


SPAN ( 27 ) 


= 


0.0 


SPANt 28) 


= 


0.0 


SPANt 29) 


= 


0.0 


SP AN ( 30 ) 


= 


O 

• 

O 


SPANt 31 ) 




0.0 


SPANt 32) 


- 


O 

• 

O 



/ 






SPAN t 33 ) = 0.0 

SPAN { 34 ) = 0.0 

SPAN ( 35 ) = 0.0 

SPAN (36) = 0.0 

SPAN (37) = 0.0 

SPAN ( 38) = 0.0 

SPAN ( 39) = 0.0 



SPAN (40) 



0.0 



1 

2 

3 

6 

7 

6 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 



- 65 - 



Y 

2.161354 
4 .326030 
6.493771 
8.667341 
10.844317 
13.002531 
15.106362 
17.067734 
18.794434 
20.22 5235 
21.329575 
22.042709 
22.394119 
22 .42941 3 
2 2.343796 
18.769989 
15.756542 
12.793637 
9.862784 
6.943064 
4.035593 
1 .136441 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0 .0 
0.0 
0.0 
0.0 
0.0 



z 

0.057134 
0 . 1 54977 
0.334096 
0.603478 
1.002817 
1.627934 
2.559123 
3.912447 
5.734756 
8.012792 
10.739202 
13.941499 
17.635715 
21 .366409 
25.239594 
25.436084 
25.682541 
25.856140 
26.002213 
26.115402 
26.191559 
26.228058 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 



YPR 

2.000000 
4.000000 
6.399993 
8 . 40000 0 
10.799995 
12.973948 
14.973943 
17.059357 
18.68737c 
20.219101 
2 1.236606 
22.012314 
22.390610 
22 .430832 
22.343796 
18.992035 
15.863767 
12.959C67 
10.054372 
7.149673 
4.244977 
1.340280 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
CoO 

o.c 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 



ZPR 

0.052599 
0.135401 
0.324254 
0 • 564632 
0.992337 
1.617520 
2.487440 
3.905701 
5.599993 
8.000000 
10.599998 
13.750000 
17.5999 7 t> 
2 1.799973 
25.2 395 94 
25.471035 
25.675853 
25. 847382 
25.993622 
26. 10d582 
26. 187373 
20.226822 
0.0 
0.0 
0.0 
0.0 
0.0 
0 . 0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 



SPAN ( I ) 
2.162113 
2 . 1 66 9o 5 
2 . 175280 
2 , 1 90565 
2.213699 
2 .248323 
2.30336 l 
2.387337 
2.514391 
2.696131 
2.944719 
3.283364 
3.762891 
4.181564 
3.374258 
3.5 32 2o8 
3.0 198o5 
2.962949 
2.939541 
2.92l92o 
2.908435 
2.899400 
1 . 13o44S 
0.0 
0.0 
0 .0 
0.0 
0.0 
0.0 
0.0 
0.6 
0.0 
0.0 
O.C 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
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B. 1IAI1T PROGRAM C03TDATA 
1.' DESCRIPTION 

Introduction 

Main program COSDATA carries out the cost calculation 
for the midship section of DD-931? using as inputs much of 
the design information generated by program BURS CORE. 
Materials cost data, extracted from £3j, are combined with 
various handling and erection costs to generate a total 
cost, per foot length of midship section, for the con- 
struction of DD -931 primary hull structure. 

For reference purposes, the acquisition cost data for 
HTS structural members are listed in Table IV on the fol- 
lowing pages. These members, when procured through the 
Federal supply system, are not discounted in price for 
quantity acquisitions. 

The methods used by the cost estimators of the Boston 
Naval' Shipyard were employed in main program COSDATA. All 
these charges are based on the cost of one man-hour of work, 
including yard overhead. For the purposes of this investi- 
gation, one man-hour has been arbitrarily assumed to cost 
$ 7.50. 

Main program COSTDATA takes the series of intervals 
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TABLE IV 

AVAILABLE PLATE'S AND SHAPES - 
DESCRIPTION AHD ACQUISITION COSTS 



Plates 



Thickness 


Width 


Length 


Cost 


Cost 


(Inches) 


(Ft.) 


(Ft.) 


Total 


Sci. Ft. 


0.25 


8 


20 


$ 169 


$ 1.058 




8 


29 


274 


1.181 




5 


20 


128 


1.28 


0.28125 


8 


29 


305 . 


1.316 


0.3125 


6 


29 


238 


1.37 




8 


29 


353 


1.522 


0.34375 


8 


29 


383 


1.651 


0.375 


8 


20 


254 


1.587 




5 


20 


161 


1.61 




6 


29 


281 


1.618 




8 


29 


383 


1.652 


0.4375 


6 


29 


39H- 


2.264 


0.50 


8 


33 


569 


2.158 




5 


20 


237 


2.37 




8 


29 


551 


2.375 

2.462 




8 


20 


& 




6 


29 


2.796 


0.625 


8 


33 


818 


2.984 


5 


20 


306 


3- 06 




6 


29 


532 


3*06 


0.75 


8 

8 


33 

20 


959 

614 


1:8 5 


0.875 


8 


16 


500 


3-905 




6 


20 


498 


4.15 




8 


29 


1030 


4.44 




15 


25.16 


1958 


5.19 


0.9375 


8 


20 


7 20 


4.50 


1.00 


8 


20 


725 


4.53 




5 


20 


481 


4.81 




8 


29 _ 


1233 


5^2 ... .... 
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TABL3 IV - Continued 



Shapes 



No. 


Depth 
(In. ) 


Fig. Width 
(In. ) 


Weight 
(Lb. /Ft.) 


Cost 
Per Ft. 


1 


6 


4 


12.0 


4 ? 2.00 


2 


6 


6.063 


22.6 


2.if0 


3 


8 


4 


13.0 


1.40 


4 


8 


5.35 


20.00 


2.40 


5 


9.9 


5.75 


21.0 


2.70 


6 


12 


if 


16.5 


2.10 


7 


16 


7 


4 0.0 


3.90 


8 


18 


7.5 


50.0 


5.50 


9 


2b 


12 


100.0 


9.00 



* \ 

All shapes have a length of 40 feet. 
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between longitudinals* for half the midship section and 
generates a set of intervals for the entire section. This 
is designed to facilitate the later calculation of butt 
locations to insure a clearance of at least four inches 



between any given butt joint and a longitudinal-plating 
intersection. 



The cost of welding any of the various possible size 
plates is calculated, using the input value of cost of butt 
welding the given thickness of shell plating (man-hours 
per foot length of weld). 

Plating Thickness Cost of Butt WeldQf] 

(Inches) (Man-Hours oer Foot) 

0.25 
0.28125 
0.3125 
0.3^375 
0.375 
0.^375 
0.50 
O'. 625 
0.75 
0.875 
0.9375 
1.00 



The program next calculates the number of plates re- 
quired to go around the girth of the midship section. The 
alternate plate sizes of the appropriate thickness must be 
arranged in ascending order of cost per square foot area. 
The first plate is centered over the keel, and successive 
plates are added in progression around the girth of the 
midship section. Should a conflict arise in that a butt. 



This information is for work on board. ship under 
difficult, conditions. Other conditions are normal and comolex.. 



O.38 

0.^3 

oM 

o.53 

0.58 

0.68 

0.76 

1.22 

1.60 

2.02 

2.22 

2.^2 
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joint in too near to a longitudinal-plating intersection, 
the algorithm first attempts to select the next available 
plating size. If this proves to he impossible, then a 
cut of 0.7 feet is made from the end of the plate. The 
following charges are made for cutting plates: 



Plating Thickness 


Cost of Cut* 


Type 


(Inches) 


(Man-Hours oer Foot) 


Cut 


0.25 


0 . 05 * 


Flame cut 


0.375 


0.06 


Flame cut 


0.50 


0.07 


Flame cut 


0.625 


0.08 


Flame cut 


0.75 


0.09 


Flame cut 


0.875 


0.10 


Flame cut 


1.00 


0.11 


Flame cut 


net cost of butt 


welding the plates is next cal- 



culated, given the total number of plates of each indivi- 
dual size employed in the midship section structure. The 
cost of any plate cuts is calculated, using the previously 
listed cost data per cut per foot plate length. 

The cost of rolling the plates, using average man- 
hour charges allocated by the Boston Haval Shipyard, based 
on a plate length of twenty feet, is computed next. The 
standard charges for such plates (twenty feet long) are 
as follows: 

Plating Thickness Cost of Rolling 

(Inches) (Man-Hours oer Plate) 

0.25 2.-9 

0.50 2.9 

0.75 3-9' 

1.00 3-9 



Information provided by Mr. Joseph Palange, a Planner 
and Estimator with the Boston Haval Shipyard. 
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Typical rigging costs are evaluated, using an 
arbitrarily specified M nix n of staging conprising two 
platforns twenty feet high, two fourteen feet high, two 
eight feet high, and two three feet high. Again, normal 
Boston Naval Shipyard charges based on staging five feet 
long are evaluated on the basis of the per-foot length 
costs . 



The acquisition cost of the plating is computed, 
using the input data provided the program and the de- 
termined number of plates employed of each given size. 

The expense involved in the procurement, cutting, 
and welding of longitudinal wide flange sections is next 
calculated. The previously defined cost criteria for plate 
cutting are used for evaluating the expenses involved in 
cutting the shape flanges. Next, the cost of welding the 
longitudinals is evaluated, using normal Boston ITaval Ship- 
yard charges similar to those described in terras of the cost 
of butt welds: 



longitudinal 

Nunber 

1 

2 . 



5 

6 

7 

8 



Welding Cost 
(Man-Hours per Foot) 
0.34 
0.-50 
0 .- 34 - 
0.42 
0.42 
0.34 
0.66 
1.04 



Additionally, for all welding operations, certain, 
fixed' charges are added. These allow for making ready 
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and putting away equipment, wire brushing, arc air, dye 
penetrant for v. r eld inspection, and strip heaters for 
heat treating welds. 

An approximate evaluation of the cost contribution 
of the transverse frame structure is made, estimating that 
the cost of the transverse frame, on the average, is 
seventy per cent that of the centerline vortical keel, 
per foot length. 



Once all these individual costs are calculated, the 



total' cost of the midship 


section structure, per foot 


length, is determined. 


- 


Inputs 


Symbol 


Meaning 


CWLDMH 


Cost of butt weld. (Han-Kvurs 




per foot length) 


TML 


Plating thickness. (Inches) 


XLGTHL 


The number of longitudinals in 
the midship section. 


CHGMNH 


The cost of one man-hour of 
work. (Dollars) 


COSTKL 


The total cost of the keel 
structure. (Dollars per 
foot length) 


TOTSPN 


The total midship section 
girth. (Feet) 


CROLL 


The cost of rolling a plate 

twenty feet long. (Dollars) 


CSTLGL 


The acquisition cost of a longi- 
tudinal. (Dollars per foot 
length) * . 


SPAIT(I) 


The interval to longitudinal (I) 



(Feet) 



The cost of welding a longitudi- 
nal. (Man-Hours per foot 
length) 



CWLGTL 



7 s * - 



Symbol 


1-lGaninr; 


PLT(I,1) 


V/idth of plate(I). (Feet) 


PLT(I ,2) 


Length of plate (I). (Feet) 


ELT(I,3) 


Cost of plate(I). (Dollars) 


CLGCUT 


The cost of cutting the flang 
of a longitudinal. (Man- 
Hours per foot) 


FRK 


Transverse frame spacing. 



(Feet) 

Calculated I tens 



Symbol 


Meaning 


TSPAN(I) 


Span between longitudinals, for 
entire section. (Feet; 


CWSLD(I) 


Cost, of welding the plating, 
per butt, per foot length. 
(Dollars) 


DIST 


Location of plate butts. (Feet) 


DSU1-1S 


Locations of longitudinals. 
(Feet) 


LGL1/XLGL1 ... 5 


number of plates (l)...(5) re- 
quired for midship section. 


NOCUT/PTCUT 


Humber of tines plates must 
be cut. 


CPLTVJD 


Total cost of welding the 

plating, per foot length. 
(Dollars) 


CPTCUT 


Total cost of cutting the plates, 
per foot length. (Dollars) 


TCROLL 


Total cost of rolling the plates, 
per foot length. (Dollars) 


CRIG 


Total cost of providing the 
rigging, per foot length. 
(Dollars) 


CPLTNG 


Total acquisition cost of the 
plating, per foot length. 
(Dollars) 


CTLGTL 


Total acquisition cost of the 
longitudinals, per foot 



length. (Dollars) 

Total welding cost for the lon- 
gitudinals, per foot length. 
(Dollars) 



CWLTHL 
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Symbol 



Leaning; 



CCUTFT 



CTFRAK 



The calculated cost of cutting 
the flanges of the longi- 
tudinals. (Dollars per 
foot length) 

Approximate cost per foot hull 
length for the transverse 
■frame. (Dollars) 



Output 

Symbol Meaning 

CTOTAL Total cost of building the 

midship section, per foot 
length. (Dollars) 

Sample Input/Outout (Computer test run) 

Input: PLT(I ,1) PLT(I,2) PLT(I, 3 ) 

1=1 3.0 33 .O 959.00 

2 . 8*0 20.0 614.00 ■ 

S ••• •••• •••••• 

• • • •••« •••••• 

CWLDMH * * * 1. 60 * *!*'an-Hours/Foot * 

TEL 0.75 Inches 

XLGTITL 17.0 

CHGKNE 7.50 Dollars/Man- Hours 

COSTKL 2 7.56 Dollar s/Fcot 

TOT SPIT 125.95 Feet 

CROLL 3*90 Dollars 

CSTLC-L 3. .90 Dollars/Foot 

SPAH(I) SPAIKI+I) SPAN (1+2) 
1 = 1 4.717 ’+.751 4.853 

1=4 5.110 5.724 6.935 

1 = 5 8.516 9.080 13.291 

CWLGTL 0.66 Man- Hour s/Foot 

CLC-CUT 0.14 Man-Hour s/Foot 

FRM 3*00 Feet 

Output: CTOTAL 1466.77 Dollars 



Fundamental Ect nation: 



CWELD(I) = CHGIDTH x ((2 x (PLT(I,1) + ?LT(I,2))) 
(CWLDMH x 1.12 + 0.144) +9.5) 

, 2*0 x PLT (I , 2 ) 
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BIS? = DIST + PLT(I,1) 

OR 

= DIST - 0.7 + PLT( 1+1,1) 

(If too near a longitudinal) 

CPLTVJD = CWSLD(l) XLGL1 + CWELD(2) XLGL2 + 
CWELD(3) x XLGL3 + CV/FLD(4) x XLGL4 + 
CWELDC5) x XLGL5 



CPTCTJT = PT'OUT x CEC-MUH 

(o.O-5 



4. 0.01 x (TEL - 0.25)^ 

— 



0.12T 



TCROLL = 

CRIG = 
CPLTTIG 



CTLGTL 
CCUTFT 
CTFRAK ' 



- CROLL x (XLGL1 + XLGL2 + XLGL3 + 

^ U * XLGllf + XLGL5) 

0.1+ x (20. + 12.4 + 9.7 + 7 . 5 ) x CHGEHH 
. PLT(1 , 3) x XLGL1 4 - PLT(2,^) x XLGL2 A 

- — — plt(2727 — 

PLT(3,3) x XLGL3 ^ PLT(4.3) x XLGL4 

PLT(3,2) PLl r (V, 2 ) ' 

PLT(?,3) .VxLGLg 

PLTCr;2) 

= XLGTNL x CSTLGL 

= CL GOUT x XL GIRL 
: 0.7 x COSTKL x 



x CEGiniH 
TOTSPK 



Flili 



CTOTAL = CP LTV/D 


+ 


CPTCUT + 


TCROLL + 


CRIG + 


CPLTNG 


+ 


CTLGTL + 


CWLTHL + 


CCUTFT + 


CTFRAK 




COSTKL 




, 



Sanole Calculation 



(Refer to program listing, flow chart, 
and printout of typical computer 
run, following pages) 
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G LEVEL n , iJ ) ( 



MAI M 



DATE = 6 7 L 2 8 



19/38/58 



0 1 . i e :'i S I PLT (8 , 3) ,s°4\{ <tC) , fSP V\!< 80) ,lMELD( 5 ! 

□o aco i = I? 80 . 

809 T S A N ( I > = 3.C 

yOO ( of ! C .u) - .. . . .... — 

DAT A LGL 1 ,i.GL2, LoLi , LGL + , LGL6 , NOCUT/ 1 , C , C ,G , C ,2/ 

91C FORMAT (8 110) _. .... ..... 

DO 400 1=1,5 

READ (5, 900) PL I (1,1), PLT (1,2), PL Til, 3) 

*RITE (to, 9 DC ) PLT (1,1), PLT (1,2), PLT (l, 3) 

IF (PLT l 1,1) .IT. 2 L . C ) DO TO 430 __ 

P L T ( I , 1 ) = 9.0 

? L T ( I , 3 ) = 0 . 0 

400 ClUTIMJE 

READ ( 5 , ) Cw LD AH , TH L , X LG TNL , CHD MNH , COS T KL , TUTSPN , CRGLL ,CST L 

_.. a.U TE( a, DOC ) C.TLORH , THL * XLG TNL , CHSl1:iH , COSTXL » TO TSP.N , CROL L , CS TL 

OU 410 I = 1, 36, 5 

READ 1 5 , 9CC.1. SP AN ( L ) ,_ S P AN ( I ► 1 ) , S PAN ( 1+2 ) , SPAM(IO), S P A M t I + 4) 

410 a'RI TE( o , 3CC ) SPAM I), SPANK 1 + 1), 5°A\(I+2), SPAM l I +3) , SPANII + 4) 

REVU15,9CC) CWLGTL, CLGCJT ,FRM .._ ._ _ . 

R R I T F (6, 90 0) C4LGTL , CLGCJT, FR.-1 

DU 42 to I = 1, 40 . — .... .. 

T SPANK [ ) = SPAM ( I ) 

__I FI SPAN ( l ) .EG . O.C) GO TO .425. _ 

42C CONTINUE 

425 IF (I .ED. 40 GO TO .4 26 

DO 430 J = l, 40 

_TS?A:HI J - L) . = SPAN! I J) 

IF ( ( 1 - J - 1 ) . EG . C ) GO TO 435 

426 DO 431 J = 1, 4C- 

43 L rS°AMl + J) = SPAM I - J +.1) _ 

CALCULATE THE COST OF a c LD I NG THE PLATING ( PER BUTT PER FT. LGTH . ) 



_435 DO 44 0 I = 1, 3_ 1 

IF (PLT (1,1) .EG. O.C) GO TO +45 

_440 CwELD(L) .= CHGMNH * ( ( 2. 0* ( P.L I ( I , l ) * 3 L T ( l , 2 ) ) ) * ( C* LD.MH* 1 . 1 2 + 0.14 
14) + 5 . 5 ) / ( P L T ( I , 2 ) * 2 . 0 ) 

,_445 DO 44 6 J = I , 5 . 

446 CrtEL'K J ) = 0 . 0 



CALCULATE THE NUMBER OF PLATES OF EACH SIZE USED FOR The MIDSHIP 
SECTION .... ._ 

I = l 



o o 



LeVcL , 



.i A I 



D AT E 



of 12 8 



19/35/58 



- ?o - 



933 
9 3 A 
46 o 



950 

952 



OIS 

p j , \ 

FUR 

) S J 

Ai i 

IF 

IF 

I F 

IF 

9 I S 

I F 

I F 

IF 

DIS 

IF 

I F 

IF 

DIS 

IF 

I F 

IF 

DIS 

Lf 

I F 

DIS 

LSI 

NUC 

J = 

6 * J 

J = 

go._ 

DIS 

J .= 
LoL 



T - 
. r 



M [ 

- s 

Tfc: 

1 1 ( 

( ( I 

( D I 
( 0 1 
( P L 
T = 
IDI 
( 01 
( PL 
T =■ 
IDI 
( D I 
( PL 
T = 
1JI 
( D I 
(PL 
T = 
IDI 
{ 0 I 
T = 
5 = 
JT 
J 

T U... 

J 

T CL. 

T = 

J 

l = 



t • c j l 

( 2 l F l ■ . 
= C- S G ! j 
(6, 933) 

6 , v 2 9 J 0 

CIS FA - 

ST.' . G T . 
ST.LT. ( 
1(2,1) . 

DIST - 
6 T . 6 T » 
SI .LI. ( 
r (3 , i ) . 
dist - 

ST .GT. 
ST.LT. ( 

1 ( 9 , 1 ) . 

DIST - 
ST . . uT . 

s r . l f . ( 
r ( 5, i ) . 

DIST - 
3 T_ . G I . 
SI .LT. ( 
n t c t _ 



L T ! L , 1 ) 

3 T , J S u '-! 3 , J , L L> L 1 » L G L 2 • L 6 L 3 , L G L 4 , L G L 5 , 
6 , 9 X ) , 7 ( I 3 , 9 y ) ) 

*- r sp A ii ( j ) 



DuCUT • ) 



LC-L 5 + 
= -NOCUT 
9 1 

96.0. 

+ I 

460 

DIST + 
+ L . 

LG LI + 



I S T , ij S 
J l S T ) 

( JSUMS 
DSUDS 
ED. C. 
PLT( l , 
( JSUMS 
0 8 U 1 1 S 
E 0 . 3 . 
PLT ( 2 , 
( USU-IS 
9 SUMS 
60. 9. 
PLTl J, 
( DSUDS 

0 S J 1 S 
ED. 0. 
5 L T ( 9 , 
IDS J -IS 
DSUDS 
0 . 7 . + 

1 

+ 1 . 



UMS , J , L.GL 1 , LGL2 , L3L3 , L 
• LT. (C.5*PLT( 1, 1) ) ) G. 
*■ 0.33)) GO TO 450 

- 0.33) ) 03 TO 932 

3) 30 10 -*5 5 

1) * PLT (2,1) 

+- 0.33)) uG Tu 4 TO 

- C . 3 3 ) ) GO TO 4/2 

0) GO TO 475 

1 ) f PL T ( 3 * 1 ) 

+ C. 33)) GU T'J 43 0 

- 0.33) ) GO TO 432 

0 ) GO JO. 435 

1) f PLT (4,1) 

+ 0.33) ) GO TO 49: 

- 0.33)) GU Tu 4^2 

0 ) GO TO *+95. 

1) PL T ( 5, 1) 

__t. CL..3.3 ) ) GO JO 5 10 

- 0.33)) G3 TJ 512 
PLT ( 1,1) 



L 4 , LGL5 , NOCUT 
TO 500 



P L T ( 1 , 1 ) 
1 



GO . TO. 460. 

455 DIST = DIST - 0.7 + PLT (1,1) 

LGLl = LGLL + l 

Mocor = Nucur + l 

J = .. J - L ... .. 

GO TO 460 

470. J =. J +_1 .. 

LGL2 = LGL2 + L 

: GO. TO 460 

472 DIST = DIST + PLT ( 1 , 1 ) 

. J = J + i 

LGL2 = LGL2 + 1 

GO. TG....46Q 
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G LEVEL J, ,-iUO 



M 2 



»» i 



0\TE = 67128 19/35/58 



575 LIST = ,)!Sf - C . 7 r PL T ( 1 . 1 ) 

NOCUT - NiuCJT *-1 
LGL 2 = LGL ? + 1 
J = J + 1 

GO TO 580 

LGL 3 = LGL 3 * 1 

GO TO A 60 _ ' 

5 82 JlST = HIST + P L T (1*1) 

LGL 3 = LGL 3 + 1 

585 OIST = J I ST - p.7 + P L T ( 1 , 1 ) 

iMJCUT — MUCUT + 1 — . ~ — ... 

LGL 3 = LGL 3 + 1 

GO TO 56" 

LGL5 = LGL5 + 1 
5 92 OIST = OIST + PLT ( 1 , 1 ) 

LGL 5 = LGL5 + 1 

GO TO 56 C 

595 HIST = OIST - G.5 - 0.3 + PLT (1,1) 

NJC.UT = NuCUr + 1 

LGL *+ = LGL5 + 1 

GO TO 56C 

5 1C J - J + l .... _ _ 

LGL5 = LGL5 + l ‘ 

GO JO 560 . 

512 OIST = GIST + PLT ( 1 , 1) 

LGL 5 = LGL 5 + L 

J = J + 1 

515 GIST = OIST + P L T ( 1 , 1 ) - 0.7 

LGL 5 = LGL5 + 1 

NOCUT = NOCUT + 1 

GO TO 560 

600 iVJCUT .=._NiJCUT_+. 1 

XLGL1 = LGL 1 

XLGL2 = LGL 2 

XLGL3 = LGL 3 

XLGL5 =_ LGL5 

XLGL5 = LGL5 

CP L TWO . = CwELDl 1) *XLGLL <■ C WELD ( 2 ) *XL GL 2 * C W EL.D ( 3 L*X LGL 3 + 



8 o 



f|G L c V t I 



MuD 



DATE = 6 7 1 2 P 



u 

C 

r 



c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c . 



/I AI-; 

1 C WE 10( A ) * .\L _ v. i + C iELO ( 3 ) *XL jLj 

det e p m i f thc Oust of cutting the plates. 

PTCJT = NGCUT 

CFTCUT = PTCJT * CHGM.NH * ( O.oi +. .0 . 0 L-* ( ( TH1-C . 25 ) /O . 12 5 ) ) 

UET OR.-1 INE TnE COST OF RULLlMo THc PLATES. 

TLAOLL = CHGMN ) ~_CRDLL * (XLoL1+XLl>L2+XLGL3 + XLGL4+XLGL5)/2C.C 

CALCULATE -THE COST OF Pis.0VI3I.JG STAGING. ... 

He I GH T OF 20 1 , 14 ' , 3 ' ? AND 3 1 , T«U EaCH » ARE PROV I DED . 

CPI’’ = 0.4 * (20.0 f L2.4 + 9 .7 f 7.3) * CHGMNH 

M 0.v CALCULATE THE ACQUISITION COST FOP ThE PLATING. 

CPLT.IG = D LT ( 1 , 3 ) «XLGL i /PLT ( I , 2 ) f P L T ( 2 , 3 ) -X LGL 2 / P L T ( 2 , 2 ) + 

1 PcT(3E3)’-/LGL3/PLJ(3»2) f PL T ( 4 ,. 3 ) * <LGL4/P L T ( 4 » 2 ) + 

2 PL T ( 5 , 3)*XLGL5 / PLT(5,2) 



19/35/33 



NOW CALCULATE THE ACQUISITION COST FJk THE LONGITUDINALS. 



CTLGTL = XLGTNL * CSTLGL 

CALCULATE THE WELDING COST FOP THE LONGITUDINALS. 

C’WL TML = XLGTNL * CHGMNH *( CwLG TL* 1 . L 2 + 0.151) 

CALCULATE T i • COST UF CUTTING THE FLANGES OF ThE LONGITUDINALS. 
CuJTF T — uL jL U T ^ XLGTNL ^ CHoMiNH 



C 

c calculate the approximate cost (pep foot hull length)*~for the transvei 

- C E-PATL .... £.STX:MAT£ I, HAT, PER.FI. .GIRTH, C F ,P AME._=_Q_. 7. * COSTKL . 

C 

- - CTf.RAll =.-0.7 * . COST K.L TQTSPu / FRH 

C -CALCULATE THE TUTAL COST OF dJILDING THE MIDSHIP SECTION, DOLLARS 
C PEP PGuT HULL LENGTH. 

... c . ... 

c TOTAL = GPL TAD f CPTCUT f TCrULL f CRIG f CPLTNG + CTLGTL f 
“ 7 L CwLTNL + CCU Tr T + CTFPA‘1 + COSTKL 
920 FOP 1AT (•] CPLTWD =',F15.5) 

-921 C 0P MAT CC CPTCUT = » , F 1 5 . n ) 

922 PUP MAT ( ' r TCrULL =',F15.o) 

- 92 a EOPr-Ui.r.. L* 0. . C P.LG = • , E.L5 . 5 ) 
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LtVEL 


t 










A 13 


924 


F ; i 


*1 A T 


( 




C i-'L T ". 3 


= ' , F 1 5 . t ) 


925 


r i j.v* 


’AT 


( 


1 c 


4 T L ■ T L 


= • t F 1 5 . £> ) 


92 c 


FG‘< 


\ \ T 


( 


* L 


C /» L T 1 L 


= 1 » r 1 5 . 3 ) 


92/ 


PJ3 


» A T ( 


i 




CCU TFT = 


• , F is. 6) 


923 




-1AT 


i 


1 C 


C T i-fxA/ 


= 1 t f 1 5 . 5 ) 


929 


fiHi 


-i A T 


t 


i r 


c total 


= 1 f F 15.6 J 


930 


f 7i \ 


•1 A T 


( 


* c 


LULL =• 


.12.* L 5 


1 


1 2 


, 1 


L 


\y L 5 


= • , 12) 


- . 



DATS = 6 7 L 2 3 



19/35/53 



931 

932 



FOX-NUT l 
1XLGL9 =• 
FOR ini ( 



!. 2 

XL 



c < L G L 1 = * » F 5 • 2 » 1 

F5.2» * XLGL5 =• , -F5.2 ) 

0 C •. E L 9 ( I ) =’ »5(Fd.3»5X) 



= • , I 2, • 

GL2 =• 



LGL 3 =’ , 12, 

, F 5 . 2 » * XLGL3 



331 TE 


1*9 


9 32) 


C.-.ELOI 


W 3 1 r r 


( O T 


92 0 ) 


C^LTWD 


//RITE 


( ^ t 


92 1) 


C-TCUT 


WRITE 


( 6 * 


9 2 2) 


TCKJLL 


.JR I I E 


{ O f 


.9 2 3 ) 


CRIG 


*RI T ij 


( 6 ? 


)3C ) 


LGL1 » 


..(KITE 


lL f 


9 3 1 ) 


XLGLi r 


■fPA Tt 


l v) y 


929 ) 


C PL TNG 


A rv I T C 


( ^ t 


92 5 ) 


C I LG T L 


NR I TF 


( <> t 


92 o) 


C.jLTNL 


.i iil T c - 


( 6- 9 


9 2/) 


CCUTFT 


wRI T i 


{ ft f 


92 3) 


CTFRA 


A A I T E 
STOP 


( 6 j 


929) 


CTJT-AL 


END. 










C E L J ( 2 ) » CNEL013), 



LGL 4 = ' , 

. F5.2, • 

WELD ( 5) 



LGL 4 » L3L5 
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Generate an array of lon- 
gitudinal intervals for 
the entire midship section. 



Locate plates around the 
girth, assuring no con- 
flicts with longitudinals. 
Cut plates if necessary. 



Determine the total cost 
of building the midship 
section. 



FIGURE IV 



MAIN PROGRAM COSTDATA FLOW CHART 
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[ E F 2 3 5 I 




SYS l 


. J 1 1 


[ F F 2 0 5 i 




Vli L 


SEk MG 3 = CCS VOL 


[ F F 2 8 j f 




SYS 1 


• E LJ r\ 1 L 1 J 


[EF2rf5 t 




VOL* 


SEP. NO 5= COSY 32 


IEF285 I 




SY S l 


. S S J L I 3 


[ t F 2 n 3 I 




VOL 


SE 9 MJS = C CSY0 3 


[ fc F2oo I 




SYSl 


. Y I r L I 1 


[EF2 35 I 




VOL 


SEP NOS = C CSV 0 3 


[ b F 2 6 9 I 




l icr 


. C OSTD A T A 


I Ef 2 85 I 




VOL 


Sc K Mu S = CCSYUl 


[EF2 35 I 




TEMP 


.COST DAT A 


I EF2 65 I 




VOL 


S£k iMUS = CCSYCl 


[EF2 63 I 




SY SO 


UT 


IEF235 1 




VOL 


Sc 5 • * 0 .> — - 


lu JU *.1* 

** r v- v 




ciSD 


Or STEP L 


7/G 




EXEC PG 3= L . SYSL 


7/ SY SPRINT 


DO 


SYS j J T = j 


7/FT03F001 


DO 


DDMAME= S YS I M 


7/FT 06 FOOL 


DO 


S YS J U T = A 


7/FTC7FO 


01 


CD 


JMT = SYSCP 


//(^•SYSIiM 


DO 


T 


I £F2 33 I 


ALLOC . 


r UP. CO a TO AT A b 


IEF237I 


PS 


* ' _ a- 
i 1 ~ • 


)) JM 191 


I EF2 371 


FT05FG 


Gl JO 2CC 


IEF237I 


FT07F0 


01 CM 200 



- I F 9 L 



KEPT 

KEPT 

KEPT 

KEPT 
PASSED 
PASSED 
SYSDUT 
70 606 . 33 # * Jr * » - 



000Q017; 

0000018! 

000C019< 

0000020! 

00CCC21! 



SML 



8 . 

5. 

c. 

c. 

0. 

1. 

6. 
6 . 
0. 
C. 
0. 
G. 
C. 

c. 

0. 



CCOOGC 33 .00‘'C00959 .OOCCCC 
COCO 0 0 2 C . C o j 0 OGoi-».aa G 0 G 0 
0.0 0.0 
c .c 



c 

0 

0 

590999 
717299 
9 36 50 C 
0 
0 
0 
0 
0 
0. 



0.750 CUC 
9 . 7 5u 7 99 
8.515100 

o.c 

.0.0 ...... 

c.o 
0.0 
0.0 



0.0 

1 7.0000 C 0 7.500000 27 . 5 5999 d 125 . 9679 78 

6 . a 5 2 5 9 9 5.109500 5.726CCG 

9.C797CC 13.291200 0.0 . 



3.9C00CC 3 . 9000 00. 



J . u 
. „_0 .0 
0.0 

0.0 

0.0 

O.Q 



0.0 

_G..O 

O.C 



0.0 

.0.0 



0.0 
.0.0 
0.0 
.G . 0. 
0.0 
0.0 



660000 0 . 1 60 COO 8 . ',00000 



01 ST, OS'JMSt J . LGL1 , L3L2 ,LbL3, LGL6, LGL 5, NUCUT 
6.0 00 0 j G 6.71729 j _._i 1_._ C . 



-Q 0 



2 



OIST, DSUMS, J, I.GLl , LGL 2 , L GL 3 » L GL 6 , LGL 5 ♦ UUCUT 

12 .000000 9.663099 220 



D I S T » 0 S U M S » J » LG L 1 * LGL 2 * L G L > » LGL6* LGL3 * i J C J T 
12 . C09CQ0 16.32069 a _ 3 2 0 



0 



Q 



_.0 



OIST, D S U • ! S , J , L G L 1 » L GL 2 > L G L 5 , L GL 6 , L G L 5 , M JCU T 
2G. COP 000 19.630151 6 3 C 

0 I S T, 05 JMS » J t LGL l , L^L2 . LGL3 , LGL6, LGL5 » ■MJC'J T 

20.000000 25.15^1 9 <? 5 . ... 3_ 0. 



0 I S i, JSOOS , J , LuL 1 , LGL 2 , LGL 3 , L GL 6 , L GL 5 , MOCU T 

28.000000 32 •>'■03666 6 6 0 



T T ^ n. C 1 1-11 I : . 1 



i '-i 



1 .‘-I ^ . .M.'-'IT 



3 3 0 2 

2 — 0 C 2 

0 0 0 2 

0. 0 • .0 2 

D I $ T, 0SUMS» J , LGL 1 , LGL? , LGL 3 , LGL4 , LGL 3 , NOCUT 
76.00J0CC 9 3 .8626 71 12 10 0 0 0 0 2 

0 I ST, OSUMS , J , LGL 1 , LGL 2 , LGL 3 , LGL4 , LGL5 , NOC'JT 

34.000000 100 . 797 lo5 . U . LL 0 . .. .0 . 2_ 0. 2 

D I S T , 9 SUM S , J , LGL l , LGL 2 , L G L 3 , L GL 4 , L GL 5 , \<JCU T 

92.000000 1 0 o . 5 2 1 L 6 4 L4 12 0 0 0 0 2 

0 I ST , OS JMS , J , LGL 1 , LoL 2 , LGL 3 , LGL 4 , LGL 5 , N'JCU 1 



0 l S I > > 'J i - S » J , L ! - L 1 , L ■ jL 7. r lG L ^ , L i.>L 4 , L G 1. 5 » N .) G -J T 

2 00003 49 . o3-*4 7 J 8 6 G 

01 s r , D $ U 8 S » J T L^L i , u 31. 2 , LGL3 ,1.GL4 , LGL5 , -nCUT 

52.000000 62.975677 9 7 0 



0 I ST » Q3UMS , J » LGL 1 • LbL 3 , L Gl 3 , L Gl 4 , LGL 4 , wUGU T 



50.00 ?30C 



76 .26o-3 76 



10 



b 



01 ST, D SUMS , J , LGL 1 , LGL 2 , LGL 3 , LGL 4 , LG 15 ,MOCUT 
4 A.nnocoo as. 34.457 3 1.1 9 r 



o 

- op - 


■ -•■ 


GC. Ov'OOOC 111. 030c • L 15 13 .> • 0- 


0- G — - 2 


0 1 S F f 0 S U '! S » J t L -j L . t L jL 2 » L L'L > r Lv? 1 . 4 r t L JL ^ r J f 


_ _ . 






I Id .463246 



16 



2 



- - - ■ - 86 - 

6.300000 LId. 663266 16 1- Q--r 

0 I S r » DS'J^lS » J » LGL 1 t L 4L 2 r LGL d , L 3L4 , t_GL r > , ,1C JT 



- 0 • 
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d . 0 00 00 0 121.234034 1 7 15 0 

□ 1ST t 0 3 1 J 5 t J r L *j L i ? L 0L 2 ? L <3 L 3 r L 0 L 4 y L o L 3 7 ; x i • ? C : J T 



0 - - - 0 
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24. j 000 


00 L 25 


• v s 1 3 2 -r i * 




16 




1 0 0 


0 


2 


[hCilOi 


P K Ol? K A ,J 1 


I \ T-^-svP T — ^L*> 


2 ir, 


t 5 


r r 


1 ' ) *-■ r 2 ■ 1 *-> A V j o 






IHC^ 10 I 


^ <*JG r m A 


i ' ‘j r *< r»s . j p t — * , lg 


?$< 


r s 


r F 


1500C r A 2 0 04944 






IHC2LM 


P P 0 G r ' m ‘ ! 


i JTcPPGJPT — GLi) 


P s .-< 


i s 


c p 


1500 OP \20GAV52 







CtiSLlH l ) = 1 0.66 5 21.3 :> 4 ' • >. 0 - - 0.0 - 0.0 



CPLTWO 



29;}. .> .■> 9 ? 4 4 



C 2 T C U T 
rtK'JLL 
Ck i G 
Lull = 
XLGL1 
GPL TNG 
CTLGTL 
CWLTNL 
CC OT F T 
Cl FRAG 

COjTKl 

CTOTAL 
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— 2 • { ^ ^ O O'-* ' 

- - 

= 1 '3 3 . 7 1 P 9 3 50 

16 LGL2 - »j LwL 3 = n - LG l 4 - C- LGL5 — 0 ' 

= 16. O'"- KL6L2 = v. y L GL 3 = 0.0 XLOL-t = 0.0 XLGL t> = 0.0 

= 4 o4 . 69 1 0 2 * — - - - • '■ — 

6 o. 2 99 933 • - •• — ■ - - - .... ... 

= 113 . 5004 1 3 - 

= 30 3. 7 23 3k - - - - „ _ 

- n. 

= 1^39. 207 '31 

* l-^. 7 <> 702 .? 



A 
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C . SUBROUTINE TSLEC'T 



1. DESCRIPTION 



Introduction 



Given the minimum tolerable spacing of longitudinals 
and the design stress criteria, this subroutine calculates 
the required plating thickness using criteria for the 
critical stress and tertiary stress levels* These two 
thicknesses: are then compared, and the greater selected. 
This exact value of thickness is then used to select the 
minimum standard plate thickness that will satisfy the 
design requirements, and the minimum spacing is modified 
by the ratio of the selected thickness to the required 
thickness*. This span is then used as the initial longi- 
tudinal spacing. 

Inputs 

Symbol 
W5BKIN 
ST1CRK 
ST2SST 
SGMULT 



Meaning 

Minimum permissible longitudinal 
spacing. (Feet) 

Maximum permissible stress at 
keel. (Tons/In. ) 

Estimated value of secondary 
stress. (Tons/In. -) 

Yield stress of the plating. 
(Tons/In. 2 ) 

Transverse frame spacing. (Feet) 



FRM 
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Calcu.1 a ted Items 

Symbol 

SGMACR 

ABAB 

C1CRIT 

CGI 



TKPRIH 

PRESS 

C3CRII 

ST3IIAX 

CC3 



THTER 



TH 



OutDUt 



Symbol 



TEL 



W53ACT 



Meaning 

Limiting stress intensity, defined 
as 1.25 x„ (ST1CAL + ST2E3T) 
(Tons/in.^) 

Plate aspect ratio. 

Coefficient used in calculating the 
critical strength of the plating. 

Intermediate calculation used in 

determining the required plating 
thickness based on critical stress 
criteria.. 

Plating thickness required to satisfy 
critical stress criteria. (Inches) 

Hydrostatic pressure at keel. 

(Tons/In. 2 ) 

Coefficient used in calculating the 
tertiary stress strength of the 
plating. (Tons/In. ) 

Maximum tolerable intensity of the 
tertiary stress. (Tons/In. 2 ) 

Intermediate calculation used in 

determining the required plating 
thickness based on tertiary stress 
criteria . 

Plating thickness required to satisfy 
tertiary stress criteria. (Inches) 

The greater of TEPRIM or THTER. 

(Inches) 



Meaning 

Plating thickness selected. This 

is the least existing thickness 
that exceeds the value Til. 

(Inches) 

Tolerable longitudinal spacing for 

selected plating thickness. (Feet) 



Calling Sequence 

Call TSLECT (W55I-HN, ST1CBK, 3T2EST, SG1IULT, FRM, 
TEL, W5BACT) 
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S ample Inaut/CutTTl 

In nut: 



Output : 



(Computer tear run,' 



W5BMIN 


1.667 


Feet 


ST1CRK 


7.93 


Tons/In. 


ST2EST 


l.fr 


Tcns/In.| 


SGMULT 


20.98 


Tons/In. 


FRU 


8.00 


Feet 


TEL 


0.28125 


Inches 


W5BACT 


1.769 


Feet 



Fundamental Equation; 



ABAB = ..Iffr: 



;N"TM 



CC1 



_ / "C1CRIT x 9.l4l6 z :: 11192.657" 



10.9 x SGIIACR 



THPRIK = 12.0 x K5BMIK 

CC1 

'D'D'GG G — 0.445 x HM 
PR^SS - j&fi— 

CC 3 = \/ ^.4-6 x PRESS 

THTSR = 3- . 2 - . ^^444 



W5BACT = 



_ TKL x 1/53111X7 



IH 



Samde Calculation 



(Refer to subroutine listing and flow 
chart, following pages; 

SGKACR = 11.58 

ABAB = 4.80 



C1CRIT = 7.225 



CC1 



■ / (7.225 
86.9 



x 9.87 x 11292.657 ) 
126.4 



THPRIK 



20 

E6T9 

0.290' 



HM = 90.29 
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PRESS — 0,00601 
C3CRIT = 0,0627 



ST3I0UC = 11,71 

003 = \/ T. Y r6 1 x^0627 x , OOoOl 
= 1 1*1 

THTER = = 0.264 

n-1 

TH - 0.264 



TH1 = 0.28125 inches 

0.28125 r,'.n 

W5BACT = '0.264 -* bD/ 

= 1*77 feet 



o o 



V G LEVEL 0, MOD 0 TSLECT DATE = 67132 19/43/58 

SUBROUTINE TSLECTI IN » ST 1CRK , ST2EST, SGMOLT » FRM , TH1 , w 5 8 ACT ) 

SGMACR = 1.25 * (S11CRK + ST2EST) 





AdA3 - FKm / rtSdMlN 










IF (ABAB - 7.0) 


701, 


70 3, 


703 




703 


C1CRIT = 7.0 
GO TO 780 










701 


IF ( AoAB - 3.5) 


702, 


704, 


704 




704 


C1CRIT = 7.0 + 
GO TO 7a0 


0.4 * 


( (7. 


C - ABAB ) / 3 


.5) 


702 


I F ( ABAa - 1.9) 


705, 


7C6 , 


70 6 




7C6 


C1CRIT = 7.4 + 
GO TO 780 


0.7 * 


(3.5 


- ABAB ) / 1 . 


6 


705 


C ICR I T = 6.1 - 


( AdAB 


- 1. 


9) / 1.9 




780 


AOULIN = C ICR I T 


* 3. 


1416 


* 3.1416 * 


13392.86 



BOULIN = 1C. 9 * SGMACR 
CC1 = SORT { ADUL I N/8DUL I N ) 

ST1CAL = ST1CRK 

THPRIM = (U53MIN * 12.) / CC1 

YPTMIN = 0.0 

ZPTMIN = O.C 

TERTIARY STRESS CALCULATION 

A3HEEL = 0.5236 
D 1 = 26.231247 
H1AMDK = 4.0 
H1DFL = 14.5 
XL 1 BP = 407. 

NBELTS =1 

CALL HDrt'TR ( A3HE E L , Y PTM I N , D 1 , HI AMDK , H ID FL , N8EL TS , XL 1 3P , ZP TM I N , HM) 
PRESS = (0.445 * HM) / 2240. 

IF (ARAB - 1.4) 901, 903, 903 

903 C3CRI T = 0.0627 
GO TO 980 

901 IF (ABAd - 1.2) 902, 904, 904 

904 C3CRIT = 0 . Oo 1 5 + 0.0012 * ((ABAB - 1.2) / 0.2) 

GO TO 980 

902 C3CRIT = 0.057 + 0.0009 * (ABAb - 1.0) 

980 ST3MAX = SGMULT - ST1CAL - ST2EST 

CC3 = SQRT (ST3MAX / (5.46 * C3CRIT 4= PRESS)) 

THTER = (12.0 * W5BMIN) / CC3 
IF (THTER .GT. THPRIM) GO TO 600 
TH = THPRIM 
GO TO 16 
600 TH = THTER 

16 I F ( ( TH - 0.375) .GT. 0) GO TO 401 
405 IF ( ( TH - 0.25) .GT. 0) GO TO 407 
TH1 = 0.25 
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V G L E V c L 0 « MUD 0 



7 StfcC T DATE = 67132 



407 IF ((TH - 0.28125) .GT. 0) GU TU 409 
TH1 = 0.20125 
GJ TO 900 

409 I F ( ( TH - 0.3125) .GT. 0) GO TO 411 
TH1 = 0.3125 
GO TO 900 

411 IF ((TH - 0.34375) .GT. 0) GO TU 413 
TH1 = 0.34375 
GO TO 900 

413 TH 1 = 0.375 
GO T 0 900 

401 I F C < TH 1 - 1.0). GT. 0) GO TO 501 

I F ( ( TH - 0.4375) .GT . 0) GO TU 503 
TH1 = 0.4375 
GO TO 900 

503 I F ( ( TH - 0.50) .GT. 0) GU TO 505 
TH1 = 0.500 
GO TO 900 

505 IF ((TH - 0.525) .GT. 0) GO TO 507 
THl = 0.625 
GO TO 900 

507 I F ( ( TH - C.75).GT. 0) GO TO 509 
THl = 0.75 
GO TO 900 

509 I F ( ( TH - C.875) .GT. 0) GO TO 511 
THl = 0.875 
GO TO 900 

511 I F ( ( TH - 0.9375) .GT. 0) GO TO 513 
THl = 0.9375 
GO TO 900 

513 THl = 1.000 

17 FORMAT ( 'REQUIRED PLATING THICKNESS EXCEEDS ONE INCH.') 

501 WRITE 16, 17) 

900 W 58 ACT = (THl * W5QMIN) / TH 
RETURN 
END 



19/43/58 
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Calculate Cl CHIT 
(a function of 
ABAB) . 



Calculate the re- 
quired tliicloiess 
from critical 
stress criteria. 



Deternine C3CRIT 
Ca function of 
ABAB). 



FIGURE V 

SUBROUTINE TSLECT FLOW CHART 
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Date mine the requir- 
ed plating thick- 
ness from tertiary 
stress criteria. 



Select the. required 
plating thickness. 



Select the least 
existing plating 
t hi clone ss that 
satisfies the TH 
requirement. De- 
termine the allow- 
able longitudinal 
span. 



FIGURE V - Continued 
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D . SUBROUTINE HDV/TR* 
1 . DESCRIPTION 



Introduction 

This subroutine calculates the maxi nun hydrostatic 
head of crater existing at a designated point on the shell. 
Three loading conditions are evaluated , using current 
procedures employed by the Naval Ship Systems Command in 
the- design of ships: 

1. The maximum head is calculated for the 
effects of the full load draft with half the 
height of a standard wave profile superposed. 

2. The maximum head is calculated for the 
condition of the ship at full load draft heeled 
aver some specified angle. In - the case of this 
analysis, the heel angle is fixed at thirty 
degrees'. 

3V Finally, the maximum, head resulting from the 
superposition of a specified design head of water 
on. the main deck is computed. 

* 

Subroutine HDV/TR is based on a subroutine of the same 
name developed by the Applied Mathematics Laboratory of the 
David Taylor Model Basin, Washington, D. C. 20007- 
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After the individual heads are determined for the 
various conditions, the maximum value is selected as the 
output from the subroutine.. 



Inputs 



Symbol 


Meaning 




A 3 HEEL 


Specified maximum heel angle. 


(Radians) 


B3P 


Half breadth of point. (Feot) 




Dl 


Depth of hull. (Feet) 




ELAMDK 

ELDFL 


Specified design head of water 
main deck. (Feet) 

Design full load draft. (Feot) 


above 


NBELTS 


Humber of points. (= 1) 




XL 1 EP 


Length between perpindiculars. 


(Feet) 


2K1P 


Height of point above keel. (Feet) 



Calculated Items 
Symbol 

EKAKDK 

HI-IHESL 

HKO 

EL 

THM 



Nc Quinn 

Eead of water due to design head of 
water on main deck. (Feet) 

Eead of water due to heel. (Feet) 

Head of water due to wave profile. (Feet) 

Draft due to standard wave profile. (Feet) 

Draft due to head of water above main 
deck. (Feet) 



Output 



Symbol 

EH 



Calling Seaucnce 



He an inn 

Maximum head of water to point. (Feet) 



Call KDV/TR (A 3 ESSL, 33 P, Dl. ELAMDK. ELDFL, hBKLTc 
XL1BP, ZK1P, HLI) 



ICO - 



Ssn-pla Input/Out out (Co input er test run) 



Input : 


A 3 heel 


0.5236 


radians 




33 P 


39.33 


feet 




D1 


70.00 


feet 




ELAKDK 


0.00 


feet 




ELDFL 


26.00 


feet 




IT BELTS 


1 






XL13P 


58 O.OO 


feet 




ZK1P 


14.00 


feet 


Output : 


HM 


30.31 


feet 



Fundamental Ecuations 

HI - H1DFL + 0.55 x v/ XL1BP 
tmo = HL - ZKLP 



Hl-iHEEL = D x Cos (1.5708 — B — A3HSEL) 
B 
D 

HKAKDK 



Arctan i ^^IP 
>/“E3P 2 + (H1DFL - ZK1?) 2 ' 

THK - ZK1P 



THK -- DL + ELAEDK 



Samole Calculation (Refer to subroutine listing and flow 

chart,- following 'pages) 

HI - 26.00 + 0.55 x 24.08319 
= 39-2458 

HMD - 39.2458 - 14.0 
- 25.2458 

D = \/ 1585.43 + IW“ 

= 41.51 

B = Arctan (0.3012) 

- 0.2926 

hmheel -41.53 x Cos (0.7546) 

= 30.31 



El-1 = HMHEEL - 30.31 feet- 



non non non ooo 
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G LEVEL 0, MOD 0 HOWTR a DATE =? 6T132 19/43/53 

SUBROUTINE H J WTR ( A3HE EL , 6 3P , D 1 , H 1 AMUK , H 1 DFL , N BEL T S , XL 1 3 P , ZK 1 P , HM ) 
CALCULATE DRAFT TO STANDARD WAVE HEIGHT 

HI = HIUFL + 0 . 5 5 £ S QR T (XLI8P) 
a IF! /KIP - HI) 1,2,2 
1 HMO = HI - ZK IP 
GO TO 3 
2 HMO = 0.0 

CALCULATE HEAD OF WATER DUE TO HEELED WATERLINE 

3 IF ( ZK 1 P - H1DFL) 4,7,5 

4 D = SQRT(S3P**2 + ( H1DFL - ZK1P)**2) 

IF ( 53P ) 19,19,18 

19 B = 1.57C3 
GO TO 20 

18 B = ATAN { { H1DFL - ZK1P)/i33P) 

20 IF (B - 1.5708 + A3HEEL ) 15, 16, 17 

15 HMHEEL = D*COS(1.57C3 - A3HEEL - 3) 

GO TO 10 

16 HMHEEL = D 
' GO TO 10 

17. HMHEEL = D*CUS(B - 1.5708 + A3HEEL ) 

GO TO 10 

5 0= SORT ( 0 3 P < £ * 2 + (ZK1P - H1DFL)**2> 

3 = ATAN { ( ZK 1 P - H1DFL ) /33P ) 

IF ( B - A3HEEL) 6,8,8 

6 HMHEEL = D*COS ( 1 . 5708 - A3HEEL + 3) 

GO TC 10 

7 HMHEEL = 53P * S I N ( A3HEEL ) 

GO TO 10 

8 HMHEEL = U.O 

COMPARE HEADS CALCULATED THUS FAR AND DETERMINE THE MAXIMUM 

10 IF (HMO - HMHEEL) 11, 12, 12 

11 HM = HMHEEL 
GO TO 100 

12 HM = HMO 
100 CONTINUE 

IF(HIAMDK) 40,40,41 

CALCULATE DRAFT DUE TO HEAD OF WATER ABOVE MAIN DECK 

41 THM = D1 + HI AMOK 
HMAMDK = THM - ZK1P 
C 



G LEVEL 0, MOD 0 



H D •'i T K 



DATE 



67132 



19/43/53 
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C COMPARE HEADS AND DETERMINE FINAL MAXIMUM HEAD AT POINT 

C 

IF < HMAMOK. - HM) 45,45,46 
46 HM = HMAMOK 
45 CONTINUE 
40 RETURN 
END 



v 



i 
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Calculate the head due 
to the standard wave 
profile. 



Calculate the head due 
to the specified 
heel angle. 



Calculate the head due 
to the design head of 
water above the nain 
deck. 



Select the maxi-m: 

hydrostatic head act- 
ing at the point. 



FIGURE VI 



SUBROUTINE HDWTR FLOW CHART 
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E . SUBROUT H i E CSPACE 

1 . DESCRIPTION 



Introduction 

This subroutine calculates the maximum permissible 
span to the next (upper) longitudinal on the midship 
section. The hydrostatic head existing at the lover 
edge of the span is employed for this calculation. The 
permissible spacing is calculated on the basis of three 
different criteria, as described by St. Denis CG : 

1. The permissible span Is calculated on the 
basis of the maximum compressive stress exerted 
on the plating. 

2. The permissible span is calculated on the 
basis of the tolerable tertiary stress level - 
caused by plate binding due to hydrostatic 
pressure normal to the plate surface. 

3. Finally, stability requirements for the 
unsupported plate are used to evaluate the 
permissible span between longitudinals. 

Once the three values of the tolerable span have 
been determined,, the lesser value of the three is selected 
as the limiting span. 
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Inputs 



Symbol 


Meaning 


ST1CRK 


Maximum permissible stress at 
keel. (Tons/In . c -) 


ST1CRD 


Maximum permissible stress at „ 
deck centerline. (Tons/In. ) 


ST2EST 


Estimated value of secondary 
stress* (Tons/In. 2 ) 


SGHULT 


Yield stress of the plating. 
(Tons/In. 2 ) 


FRM 


Transverse frame spacing. (Feet) 


THL 


Plating thickness. (Inches) 


YPTMIN 


Half breadth of preceding longi- 
tudinal. (Feet) 


ZPTKIN 


Height of preceding longitudinal 
above base line. (Feet) 


W53PRC 


Span to preceding longitudinal. 
(Feet) 



Calculated I tens 



Symbol 


Meaning 


ZNAXIS 


Location of neutral axis of 


ST1CAL 


DD-931 midship section above 
base line. (Feet) 

Calculated primary compressive 
stress at preceding longi- 
tudinal. (Feet) 


SGMACR 


Limiting stress intensity, 

defined as 1.25 x (ST1CAL + 
ST2EST) (Tons/In. 2 ) 


ABAB 


Aspect ratio of preceding span. 


C1CRIT 


Coefficient used in calculating 
the critical strength of 
the plating. 


V/5BTL1 


Permissible span due to critical 
strength criteria. (Feet) 


PRESS 


Hydrostatic pressure at pre- 
ceding longitudinal. (Tons/ 
In. 2 ) 


C3CRIT 


Coefficient used in the tertiary 
stress calculation. 





W5BTL3 


Permissible span due to the 

tertiary stress calculation. 
(Feet) 




SGMCRT 


Critical stress intensity for 
a Dpnel of plating. (Tons/ 
In» 




XNOSTF 


Required number of stiffeners 






for a plate panel. 




ST3MAX 


Greatest tolerable tertiary 
stress. (Tons/In. ) 




W5BTLS 


Tolerable span on basis of plate 
stability criteria. (Feet) 


Output 




Symbol 


Meaning 


j 


W5BTOL 


Maximum tolerable span to next 
longitudinal. (Feet) 



Calling Sequence 



Call CSPACS (ST1CRK, ST1CRD, ST2EST, SGKULT, FRM. 

TH1, YPTMIN, ZPT1IIII, WJBPRC, WjBTOL) 



Sample Input/Outnut (Computer test run) 



Input: ST1CRK 

ST1CRD 
ST2EST 
SGMULT 
FRM 
TH1 

YPTMIIT 

ZPTMIN 

W5BPRC 



7.93 


Tons/In. 


6.00 


Tons/In. 


1.3^ 


Tons/In. 


20.98 


Tons/In. 


3.00 


Feet 


0.28125 


Inches 


1.768 


Feet 


o.o>f5 


Feet. 


1.769 


Feet 



Output: W53T0L 1.772 Feet 



Fundamental Equations 



ZNAXIS 



26.23125 x ( 



ST1CRK 



ST1CRK 
ZNAXIS - 



+ ST1CRD 
ZPTKII 



ZNAXIS 



"t 



■) 



ST1CAL = ST1CRK x 
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A 3 AB = FRK/ 1 / 53 PRC 

l.rit'-nrfir -1 _ A-BL -- 1^01 

»•? Jiill - JJ-Q 



CCl 



/ ~GTc-nT x 4 .T 4 T 5 - x 133^2.86 
“ V 10.9 X sgma.gr 



PRESS = 0.445 :c HI/ 2240 . 

ST 3 HAX = SGI-IULT - ST 1 CAL - 5 T 2 EST 
W 53 TL 3 = ™ 2 A . C . G 3 . 



cc 3 “ 



ST_ 3 _MAX 



x C3CRIT x PRESS 

SQHCRT = ‘KO x l.lkl 6 2 x 1^92.36 x Pl : 

10.8 x 3600. 



XHOSTF = . / S.SMCR 
V SGMCRT 

W 5 BTLS = 



- 1.0 



Sample Calculation (Refer to subroutine listing and flow 

chart, following pages) 

ZNAXIS = 26^23125 x 

= 14.9? 

ST1CAL = 7.93 
= 7.90 



ABAB = 8.0/1.769 
=- it-I 2 



CCl 



/ 7.283 X 3.i4i5 2 X 13392.86 

V 10.9 x 11.56 

= 87.9 



W5BTL1 = ■Q.r. 2 A4 2 5-.?2 6.2.--i 

l~c. *>U 

- 2.05 

PRESS = 0.449 x 30.19/2240 

= 0.006 



ST3HAX = 11.74 
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/ 11 ". 7 ^ 

cc 3 - >/ J7k^l:\Q62 7 x .0(X 

= Zi^Z 

W5BTL3 = 0.2S125 x 75.7 

12.0 

= 1.772 

SGMCRT = 1.076' 

K:osi? = >/ feU 

= 2.23 



- 1.0 



V/5BTLS = 2.2*45 

W5BTCL = 1.772 feet 



ooo oooooooooo 



G LcVEL 0» MOD 0 



CSPACE 
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DATE = 67132 



19/43/53 



SU3R0UT I Me CSPACE ( STICRK , ST 1 CRD , ST2EST , SG MUL T , FRM , TH 1 , Y PTM I N , 
1ZPTMIN, wbBPRC ,W53TUL ) 



W 5 o T U L IS CALCULATED ON THE BASIS CF THE PRIMARY AND TERTIARY 
STRESSES* THE LESSER VALUE OF THE TWO IS THEN SELECTED. 

THIS VALUE OF W53TUL IS THEN COMPARED v.ITH THE MINIMUM SPAN 
PERMITTED ON THE BASIS OF THE REQUIRED NUMBER OF STIFFENERS FOR A 
PLATE n I TH THICKNESS TH 1 AND A WIDTH OF 5.0 FEET. 

BASIC METHODOLOGY OF SUBROUTINE ISLECT IS USED FOR THE PRIMARY STRESS 
CALCULATION. ‘ - 

ZNAXIS = 26.23125 * (STICRK / (STiCRK *- ST1CRD)) 

S T 1 CAL = STICRK * A6S ((ZNAXIS - ZP TM I N ) / ZN AX I S ) 

SG.MACR = 1.25*(STICAL + ST2EST) 

ABAB = FRM / W5BPRC 

IF (ABAB - 7.0 701, 703, 703 

703 C1CRIT = 7.0 
GO TO 780 

701 IF (ABAB - 3.5) 702, 704, 704 

704 C ICR I T = 7.0 + ( C .4* ( ( 7. O-adAB ) /3 . 5 ) ) 

GU TO 730 

702 IF ( ABAB- 1.9) 705, 706, 7C6 

706 C1CRIT = 7.4 ♦ 0.7*(3.5-ABAB)/1.6 
GO TO 780 

705 C ICR I T = 8.1 - ( A BAB-1. 9) /l. 9 

730 ADULIN = C1CRIT * 3.1416 * 3.1416 * 13392.86 
BDULIN = 10.9 * SGMACR 
CC1 = SQRT (ADULIN/BDULIN) 

W53TL1 ( TH 1 * CC1)/ 12. 

TERTIARY STRESS CALCULATION. 

DATA A3HEEL, D1,HIAMDK,H1DFL,N BELTS, XLlBP/. 5236, 26. 23125, 4., L4.5, 1, 

1 407./ 

CALL HD W T R ( A3HEEL , YP TM IN , D1 , HI AMOK , H1DFL,NBELTS, XLlBP, Z PTM IN, Hrt ) 
PRESS = 0.445 * HM/2240. 

I F ( ABAB - 1.4) 901, 903, 903 

903 C3CRIT = 0.0627 
GO TO 930 

901 I F ( ABAB- 1.2) 902, 904, 904 

904 C3CRIT = 0.061a + 0.C012* ( ( A3AB-1 .2 ) /C. 2) 

GU TO 980 

902 C3CRIT = 0.057 + 0 . 022 5* ( A8 AB- 1 . 0 ) 

980 ST3MAX = SGMULT - ST1CAL - ST2EST 

CC3 = SORT ( ST3MAX/(5.46*C3CRIT*PRESS) ) 

W5BTL3 = TH 1 * CC 3 / 12.0 
IF (W5BTL1 .GT. W53TL3) GO TO 41G 



o o o o o 



G LEVEL 



410 



600 



601 



- no - 



0, MUD G CSPACE DATE = 67132 

W53T0L = W5BTL1 
GO TO oCO 
W 5 6 T 0 L = W58TL3 

PROVIDE FOR ADEQUATE PLATE STAbILITY BY LIMITING W53TGL' ON 
BASIS UF THE NUMBER OF STIFFENERS REQUIRED FOR A PLATE WITH 
WIDTH OF FIVE FEET. 



SGMCRT = 4 . * ( 3. 14 1 6**2 ) * 13392 • 86* l THl^^Z) / ( 10.8 * 3600.) 
XNOSTF = SQRT ( SGiMACR / SGMCRT ) - 1.0 

W53TLS = ABS (5.0/XNOSTF) 

IF (W5BT0L .LT. W5BTLS) GO TO 601 

W5BT0L = W5BTLS 

CONTINUE 

RETURN 

END 



19/43/5 3 



THE 

A 



ill 




Calculate the tolerable 
spacing due to primary 
stress. 



Compute the tolerable 
spacing due to 
tertiary stress. 



Calculate the tolerable 
spacing from the 
stability standpoint. 



■Select the limiting 
spacing. 



FIGURE VII 



SUBROUTINE C3PAC3 FLOW CHART 
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F . SUBROUTINE CLONGL 



1* DESCRIPTION 

Introduction 

Subroutine CLOIIGL is designed to calculate the re- 
quired section modulus for the longitudinal-plating 
combination, as veil as the minimum permissible radius 
of gyration. The resulting computation is concerned 
solely with strength criteria, as the criteria for plating- 
longitudinal stability are determined later in the main 
program. 



Symbol 


Meaning 


ST1CRK 


Maximum permissible stress at 
keel. (Tons/In."-) 


ST1CRD 


Maximum permissible stress at _ 
deck centerline. (Tons/In. ) 


ST22ST 


Estimated value of secondary 
stress. (Tons/In. ) 


SGMULT 


Held stress of the plating. 
(Tons/In. 2 ) 


FRK 


Transverse frame spacing. (Feet) 


TH1 


Plating thickness. (Inches) 


YPTLOC 


Half breadth of longitudinal. 
(Feet) 


ZPTLOC 


Height of longitudinal above base 
line. (Feet) 


W5BPRC 


Span from preceding longitudinal. 
(Feet) 
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Symbol Meaning 

R^C-YHA Required radius of gyration of 

plating-longitudinal combi- 
nation. (Inches) 



Calculated Items 



Symbol 

XR5GYR 



PRESS 

ZNAXIS 

ST1CAL 

WIDTH 

EWIDTH 



XMELLG 
ST3LGL . 



Meaning 

Calculated radius of gyration 
required for given longi- 
tudinal location. (Inches) 

Hydrostatic pressure at longi- 
tudinal. ( Pound s/In.) 

Location of neutral axis of DD-931 
midship section above base line. 
(Feet) 

Calculated primary compressive 

stress at longitudinal. (Feet) 

Permissible span for cases where 
span exceeds 50*0 x TH1. 

(Inches) 

Effective width of plating, dic- 
tated by the lesser of WIDTH 
and 12.0 x W5BPRC. (Inches) 

Bending moment at mid- span 

plating-longitudinal combination. 
(Inch- Pounds) 

Tolerable level of tertiary stress. 
(Tons/In. 2 converted to Lb. /In. 2 ) 



Outout 



Symbol 


Meaning 


R5GYRA 


Required radius of gyration of 
plating-longitudinal combi- 
nation. (Inches) 


XHD1I2T 


Required section modulus of 

plating-longitudinal combi- 
nation. (In. 3) 



Calling Sequence 

Call CLOIIGL (ST1CRK, ST1CRD, ST2B3T, SG’.TJLT, FRK, 
TH1, WJBPRC, RpGYRA, IQ-IDIMIT , YPTLOC, 
ZPTLOC) 



Sample in out/ Cutout 


( Computer 


test run) 




Input : 


ST1CRK 


7.93 


„ _ 0 

Tons/In . 5 


• 


5T1CRD 


6.00 


Tons/In. 




ST2E3T 


1.34 


Tons/I n.p 




SGMJLT 


20.98 


Tons/ In. 




FRM 


8.00 


Feet 




TEL 


0.28125 


Inches 




YPTLOC 


1.768 


Feet 




ZPTLCC 


0.045 


Feet 




W5BPRC 


1.769 


Feet 




R5GYRA 


3.097 


Inches 


Output : 


R 5 GERA 


3.097 


Inches 




XMD1MI 


8.277 


In. 8 



Fundamental Demotions 

XR5GYR = 

* 

PRESS = 
ZNAXIS = 
ST1GAL = 
WIDTH = 
XMB1LG = 
ST3LC-L = 
ST3LGL = 
XMD1MN = 



12.0 x FS 


0 : 


31. 




0.445 x KM 


9 per v ST1CRK 




■ SUCRE + 3T1CRD 


ST1 CRT<f v 


ZHAXIS - ZPTLOCl 




ZHAXIS 1 



50.0 x TEL 

1S.C x PRESS x EWIDTH x FRM 2 
3GMULT - ST1CAL - ST23ST 

2240. x ST3LC-L 

XKB1LG 

ST3LGL 



Sample Calculation (Refer to subroutine listing and flow 

chart, following pages) 

XR5GYR = = ^.Q97 

PRESS = 0.445 x 30.14 

= 13.4 



26.23125 X 

7 97 1 4.-94 - 0.045 



ZHAXIS = 



- lip - 



W5BPRC = 


21.23 inches 


WIDTH = 


14.06 


EWIDTH = 


WIDTH = 14.06- 


XK31LG = 


13. x 13*4 x 14.06 x 64 
217,000 


ST3LC-L = 


26 , 320 psi 


XMD1MN = 


217,000 
26,320 
■ 8.2§ 



CLONGL 



DATE 



67132 



19/A 3 753 



LEVEL 0, MOD 0 
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SU3R0UT INE CLu 'IS L i S T 1CRK , ST 1 CRD , ST2 E S T , SGHUL T , FRM , TH 1 , Vi 53PRC , 
1 R5GYRA , XMDUN, YP1 LUC , ZP T LfJC) 

XR5GYR = 12.0 * FRM / 31.0 
IF ( XR5GYR - R5GYRA) 2C1, 203, 203 
203 R5GYRA = XR5GYR 
201 A3HEEL = 0.5236 
AAA = W5QPRC 
D 1 = 26.231247 
H1AMDK = 4.0 



600 

601 



H1DFL = 14.5 
N3ELTS = 1 
XL 1 BP = 4C7. 

CALL HDWTR ( A3HEEL » YPTLOC* D1 , H1AM0K , H1DFL » NBELTS , XL IBP, ZPTL3C , H M ) 
PRESS = 0.445 * HM 

ZNAXIS = 26.231247 * ST1CRK / (ST1CRK + ST1CRD) 

ST1CAL = SUCRK * ABS ( (ZNAXIS - ZPTLQC ) /ZNAXIS ) 

W5BPRC = 12.0 * W5BPRC 

WIDTH = 50.0 * TH1 

IF (W5BPRC .LT. WIDTH) GO TO 600 

EWIDTH = WIDTH 

GO TO 601 

EWIDTH = W 53 PRC 

XM61LG = 18.0 * PRESS * EWIDTH * (FRM**2) 

ST3LGL = SGMJLT - ST1CAL - ST2EST 

W5BPRC = AAA 

ST3LGL = 2240. * ST3LGL 

XMD1MN = XMB1LG / ST3LGL 

RETURN 

END 




Determine the limiting 
value of the radius 
of gyration. 



Do the preliminary com- 
putations for deter- 
mining the effective 
■uidth of plating. 



t 



FIGURE VIII 



SUBROUTINE CLOIIGL FLOW CHART 
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Select I 


WIDTH 




r 


Calculai 
XKB1LC 
and XI 


;c: 

}, ST3LGL, 
•ID1MN 



f RETURN J 



Determine the required 
section modulus for the 
plating-longitudinal 
combination. 



FIGURE VIII - Continued 
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G. SUBROUTINE PMINER 



1 . DESCRIPTION 



Introduction 

The characteristic data delineating the contribution 
of the half breadth plating to the total area and section 
modulus of the midship section were generated by subroutine 
WTSKOD for all available plating thicknesses , up to one inch 
maximum. This information is imbedded in subroutine PI'INSR 
in such a way that, given an input of the plating thickness, 
the appropriate information detailing the effects of the 
plating on the total area and section modulus is provided. 



Incuts 



Symbol 

TEL 



Meaning 

Plating thickness. (Inches) 



Calculated Items 

lions. Subroutine PMI1IER merely selects the 
correct values of BIT DM, AREAPT, XMOMIrT, and XINER (defined 
below.) for the given input value of plating thickness . 
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Outnui 



Symbol 

BLHOM 

AREAPT 

XKOKIH 

XINER 



Meaning 

Moment about the base line for 
the half breadth plating. 
(Inches^ Feet) 

Total area for the half breadth 
plating. (Inches 2 ) 

Net moment of inertia about the 

base line for the half breadth- 
plating. (Inches 2 Feet^) 
Moment of inertia of the total 

midship section plating about 
the neutral axis for thg 
plating. (Inches^ Feet ) 



Calling Seouence 



Call P MINER 


(TEL, BUCK, AREAPT , 


XMOM'IN, XINER) 


Innut/Out nut 


(Computer test run) 




Input: 


TEL 


0.625 


inches 


Output : 


BLKOM 


6883.683+ 


2 

inches^ fecc 




AREAPT 


472 . 3O6+ 


inches^ „ 




XKOKIIT 


15318^.-375 


inches^ feet^ 




XINER 


10 571^.562+ 


inches^ feet 



Fundamental Equations 
Hone . 



Sanole Calculation 



None . 



(Refer to subroutine listing and flow 
chart, following pages) 



G LEVEL 



17 



18 



19 



20 



21 



22 



23 
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0, MOO 0 



PMINER 



DATE = 67132 



SUBROUTINE 


PMINER ( 


THi , BLMOM, 


AREAPT t 


XMl 


IE 


I ( TM1 - 


0.25000) 


. EQ. 0.0) 


GU 


TO 


17 


IF 


( l Th L - 


0.28125) 


. EQ . 0.0) 


GO 


TO 


16 


IF 


((THI - 


0.31250 ) 


.EQ. 0.0) 


GQ 


TO 


19 


IF 


{ ( THI - 


0.34375) 


. EQ . 0.0) 


GO 


TO 


20 


IF 


( ( TH 1 - 


0.37500) 


. EQ. 0.0) 


GQ 


TO 


21 


IF 


( (THI - 


0.43750) 


.EQ. 0.0) 


CO 


TO 


22 


IF 


I ( THI - 


0.50000) 


.EQ. 0.0) 


GQ 


TO 


23 


IF 


( ( THI - 


0.62500) 


.EQ. 0.0) 


GU 


TO 


24 


IF 


l ( THI - 


0.75000) 


.EQ. 0.0) 


GQ 


TO 


25 


IF 


( ( THI - 


0.87500) 


.EQ. 0.0) 


GO 


TO 


26 


IF 


( (Tril - 


0.93750) 


.EQ. 0.0) 


GU 


TO 


27 


IF 


( ( THI - 


l.GOOOO) 


. E Q « 0.0) 


GQ 


TO 


28 



5LMQM = 2753.5119629 
AREAPT = 188.9225464 
XMOMIN = 61274.3710937 
XINER = 42284.8554687 



RETURN 
BLMOM = 
AREAPT = 
XMQMIN = 
XINER = 
RETURN 
BLMOM = 
AREAPT = 
XMQMIN = 
XINER = 
RETURN 
BLMOM = 
AREAPT = 
XMQMIN = 
XINER = 
RETURN 
3LMJM = 
AREAPT = 
XMQMIN = 
XINER = 
RETURN 
BLMOM = 
AREAPT = 
XMOMIN = 
XINER = 
RETURN 
BLMOM = 
AREAPT = 



3097.7021484 

212.5378418 

68933.5 

47570.0546875 

3441. 895752 
236. 1531372 

76592. 5625 
52854. 8671875 

3786.0852051 

259.7683105 

84251. 5625 
58139.7304687 

4130.2734375 
283. 3335449 
91910.625 
63424. 9726562 

4818.6132812 
330.6142578 
1C7228. 8125 

73997.5625 

5506.96875 

377.8449707 



XMUMIN =122547.25 
XINER = 84569.8125 
RETURN 



19/43/ 53 



G LtVcL 

24 

25 

26 

27 

28 
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0, MOD 0 ' PMINER DATE = 67132 

BLMOM = 68o3. 6835937 

AREAPT = ‘*■’2.306 1523 

XMOMIN =153134. 3/5 
XINER =105/14.5625 
RETURN 

QLMOM = 8260.421875 

AREAPT = 566.7675781 

X Mu M I N =183821.125 
XINER =126857.125 
RETURN 

BLMOM = 9637.1679687 

AREAPT = 661.2287598 

XMOMIN =2 14458.25 
XINER =148000. 

RETURN 

3LMJM = 10325.5351562 
AREAPT = 708.4592285 

XMOMIN =229777.25 
XINER =158572.5625 
RETURN 

BLMOM = 11013.9257812 
AREAPT = 755.6901855 

XMOMIN =245096.0625 
XINER =169143.625 
RETURN 
END 



19/43/58 
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(Tabulated values, to 



XXX 


HUH 


BLKOM 


0.25 


17 


2753-5+ 


0.28125 


18 


3097.7+ 


0.3125 


19 


3441.8+ 


0.3^375 


20 


3786.0+ 


0.375 

0.4375 


21 

22 


4130.2+ 

4818.6+ 


0.5 


23 


5506 . 9+ 


0.625 


24 


6883.6+ 


0.75 


25 


8260.4+ 


0.875 


26 


9637.1+ 


0.9375 


27 


10325.5+ 


1.0 


28 


11013.9+ 



inserted 


above) 




AEEAPT 


XMORIN 


XIIIER 


118.9+ 


61274. + 


42284.+ 


212.5+ 


68933.+ 


47570.+ 


236.1+ 


76592.+ 


52854.+ 


259.7+ 


84251.+ 


58139.+ 


283.3+ 


91910. + 


63424.+ 


330.6+ 

377.8+ 

472.3+ 


107228.+ 
122547. + 


73997.+ 

8+569.+ 


153184. + 


105714.+ 


566.7+ 


183821.+ 


126857. + 


661.2+ 


21 4458.+ 


148000. 


708.4+ 


229777.+ 


158572.+ 


755.6+ 


245096.+ 


169143.+ 



FIC-UHE IX 



SUBROUTINE FRITTER 



‘'LOW CHART 
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H. SUBORDINATE PROGRAM SHDATA 
1. DESCRIPTION 

Introduction 

Program SHDATA generates input data required for main 
program RUNSCCRS (after further manipulation by subroutine 

PLTGTK) . The midship section molded form of DD-931? ori- 

* 

ginally defined by a series of nineteen cubic equations, 
is defined in detail by a mesh' of one hundred ninety-one 
points by. subroutine SHDATA. 

Each cubic equation, xd.th one coordinate variable 
defined in terms .of the other, is used to generate ten 
points on the surface of the midship section shell molded 
form. The final point defines the shell-plating inter- 
section. The output of this subroutine is then used as 
an input to program PTLGTH, which calculates the distance 
between adjacent points. 

Inputs 

Symbol Meaning 

C00RD1 The dependent variable. (Y or Z) 



Provided by courtesy of Hr. Lee Mount of o . J. Henry 
Co., Inc. 
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Symbol 



Meaning 



CC0RD2 

II032G 

PTMIIT 

PTHAX 

AA 

BB 

CC 

DD 



The independent variable. (2 or 
Y) 

The number of the cubic equation . 

(From 1 through 19) 

Minimum value of the independent 
variable. (Feet) 

Maximum value of the independent 
variable. (Feet) 

Fixed quantity in the cubic 
equation. 

Coefficient of the first power 
independent variable. 
Coefficient of the second power 
independent variable. 
Coefficient of the third power 
independent variable. 



Calculated Items 






Symbol 


Meaning 




W 


The independent variable. 


(Feet) 


SUM 


The- dependent variable. 


(Feet) 


DIFF 


Range of the independent 
(Feet) 


variable. 



Output 


Symbol 


Meaning 




ES 


Half breadth of point. (Feet) 




FF 


Height of point above base line. 
(Feet) 



Sample Input/Outout 
Input : 



(Computer test run) 



C00RD1 


Z 


C00RD2 


Y 


HOSBG 


1 


PTMU'I 


0.-0 Feet 


PTHAX 


2*0 Feet 


AA 


0.0000 


BB 


0.023692 


CC 


0.0000 


DD 


0.00058957 
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Out out : 



Segment 



1 

1 

1 

1 

1 

1 

1 

1 

1 



Point 

T 

X 

2 

2 

5 

6 

7 

8 

9 

10 



0.00 

0.20 

0.40 

0.60 

0.80 

1.00 

1.20 

1 . 5+0 

1.799999 

1.799999 



Z 

0.000000 

0.005+79-3 

0.009715 

0.01439-3 

0.019277 

0.029-232 

0.029449 

0.034787 

0.040322 

0.046084 



Fundamental Equation s 

SUM = AA +■ S3 
W = W + STEP 
STEP = DIFF / 10. 

DIFF = PT1IAX - PTKIN 



x W + CC x W 2 + DD x W3 



Samnle Calculation (Refer to subordinate program listing 

and flow chart, following pages; 

DIFF = PTI'IAX - PTHIIT 

= . 2jO 

STEP = 2-0 / 10.. 

= 0.20 

W = 0.20 

SUM = O.O 23692 x VY + 0.00078977 x W 3 
- 0.004743 
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Solve the cubic 
equation for the 
value of the de- 
pendent variable. 



Assign offset and 
height above base 
line for point. 



Continue solving for 
shell structure. 



t 



FIGURE X 

SUBORDINATE PROGRAM SHDATA FLOW CHART 
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I. SUBORDINATE PROGRAM DKDATA 
1 . DESCRIPTION 

Introduction 

Program DKDATA is designed to generate a series of 
points OxO the molded deck of the midship section of DD- 
931 ♦ The half breadths of the points are determined on 
the basis of the angle of the sine function used to de- 
fine the height of the camber curve. For the deck edge, 
the sine equals zero, while the value is one at the center- 
line. A direct correlation between the angle involved and 
the half breadth is maintained — if the angle is forty-five 
degrees, the point defined exists at exactly half the max- 
imum breadth of the molded deck plating. 

One hundred points are defined, equivalent to ten 
cubic segments with ten points evaluated on each, as in 
program SHDATA. One added point defines the centerline of 



the deck. 






Inputs 


Symbol 


Meaning 




C00RD1 


The dependent variable. (Z) 




C00RD2 


The independent variable. (?) 




ZI-HIT 


The height of the deck edge above 
the base line. (Feet) 



Symbol 



Meaning- 



Z1 



-a Y 



Wj lx 



The height of the dec!' centerline 
above the base line. (Feet) 
The half breadth of the deck edge. 
(Feet) 



Calculated Items 



Symbol 



Meaning 



STEP 

YYY 

FF/YBEG 



Angular increment for the sine 
function. (Radians) 
Increment of the halfbreadth 

for adjacent points. (Feet) 
Offsets of the point. (Feet) 



DIFF 



NOSEG 

I 



Height difference between the 

deck edge and the deck center- 
line. (Feet) 

"Segment" number — for uniformity 
with SHDATA output. 

"Point" number within the segment. 



AHGLE Angle to be used for the camber 

calculation of the height of 
the deck. (Radians) 



Output 



Symbol 

FF 



EE 



Meaning 

Offsets to the point. (Feet) 

Height of the point above the 
base line. (Feet) 



Sample Input/Qutnut (Computer test run) 

C00RD1 Z 

C00RD2 r 

ZKIN 25.23959^ 

ZKAX 26 . 231247 

h-iax 22.343796 



Input 



Feet 

Feet 

Feet 



Output : 



Segment 

20 

20 

20 

3.0 



Point T 

1 22.343796 

2 22.120346 

3- 21.896896 

1 -0.000348 



Z 

25.239594 

25.255157 

25.270737 

26.2312 47 



Fundamental Equations 



STEP = THETA / 100. 

YYY = YKAJC / 100. 

YBEG =- YKAX, later = YBEG - YYY 
DIFF = ZHAX - ZI-ilN 



ANGLE = ANGLE + STEP 



EE = znin + DIFF X SIN (ANGLE) 
FF = YBEG 



Sample Calculation (Refer to subroutine listing and flow 

chart, following pages) 

STEP = 0.015708 

YYT=- 0.22343796 
YBEG = 22.343796 

DIFF = 0.991653 

EE ~ 25 . 23959 ^ + 0. 991653 X Sin (0.) 

=- 25.239594 



FF = 22.343796 



EVFL 02 NOV. 66 



OS/36C FORTRAN H 



COMPILER OPTIONS - N A M E = M A I N , 0? T =00 , L I NEC NT = 50 , SOURCE , BCD , NOL l ST , 0£ 



I SN 


0002 


901 


FORMAT (2A1 » 3 F 1 0 • 8 ) 






I SN 


.0003 


902 


FORMAT ( IHO » A l , 1 5H A FUNCTION 


OF , 


A 1 , 9H SEGMENT ,I2,7H 








114H X= 203.500000,311 Y=,F10.6 


,3H Z = 


, FI 0.6) 


I SN 


0004 


903 


READ (5,901) COORD 1 , C00RO2, 


ZMIN , 


ZMAX » YMAX 


ISN 


0005 




THETA = 0.5 * 3.1415927 






I SN 


0006 




STEP = THETA / 100. 






I SN 


0007 




FF = 0.0 






ISN 


0006 




□ IFF = 2 MA X - ZMIN 






I SN 


0009 




ANGLE = 0.0 






I SN 


0010 




YYY = YMAX / 100. 






I SN 


0011 




YBEG = YMAX 






I SN 


0012 




AA = 0.05 






I SN 


0013 




DO 907 J = 1, 101 






ISN 


0014 




FF = YBEG 






ISN 


0015 




EE = ZMIN £ DIFF * S I N ( ANGLE ) 






ISN 


0016 




NOSEG = AA 






ISN 


0017 




K = AA 






ISN 


0018 




AK = K 






ISN 


0019 




I = 10 .0 *' ( AA £0.1) - 10.0 


* AK 




ISN 


0020 




IF (I .EQ. 0) GO TO 910 






I SN 


0022 




GO TO 909 






I SN 


0023 


910 


I = 10 






ISN 


0Q24 


909 


AA = AA £ 0.1 






ISN 


0025 




NOSEG = NOSEG £ 20 






ISN 


0026 


904 


WRITE (6,902) C00RD1, C00R02, 


NOSEG 


, It FF, EE 


ISN 


0027 


905 


WRITE (7,902) C00RD1, C00RD2, 


NOSEG 


» It FF, EE 


I SN 


0028 




YBEG = YBEG - YYY 






I SN 


0029 


907 


ANGLE = ANGLE £ STE 0 






ISN 


0030 




STOP 






ISN 


0031 




END 







Calculat 
■* ANGLE, 

and DI 


;e : 

STEP, 

:ff 






Calculat 
EE, FJ 
and I 


;e: 

NOSEG, 




Determine the initial 
angle and the incre 
ments of the angles 
and offsets. 



Determine the point 
coordinates . 



FIGURE XI 



SUBORDINATE PROGRAM DEDATA FLOV/ CHART 





J. SUBORDINATE PROGRAM PTLGTH 



1. DESCRIPTION 



Introduction 

Program PTLC-TH uses the outputs of SKDATA and DKDATA 
to calculate the distance between adjacent points, based 
on the assumption that the distance between two points 
can be closely approximated by a straight line segment. 

In view of the short distances involved, this results in 
a relatively precise calculation. The center of gravity 
of the short segment so defined is evaluated by linear 
interpolation. 

Inputs 

Symbol 
N0SEG1 

11 

YPT1 
ZPT1 
1I0S3G2 

12 

YPT2 
ZPT2 



Meaning 

Segment number of initial point. 

Point number of initial point. 

Half breadth of initial point. 
(Feet) 

Height of initial point above 
base line. (Feet) 

Segment number of next point. 

Point number of next point. 

Half breadth of next point. 
(Feet) 

Height of next point above base 
line. (Feet) 
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Cutout 



Symbol 



DI3T 

ZCGPT 



Meaning; 



Distance from initial to next 
point. (Feet) 

Height of mid point of DIST 
above base line. (Feet) 



Samole In nut/Out out (Computer test run) 



Input: 


H0SEG1 


1 






11 


1 






YPT1 


0.0 


Feet 




ZPTl 


0.0 


Feet 




N0SEG2 


1 






12 


2 






YPT2 


0.200000 


Feet 




ZPT2 


0.00 ! +7 l !-3 


Feet 


Output: 


DIST 


0.200056 


Feet 




ZCGPT 


0.002371 


Feet 



Fundamental Fauatlons 

DIST = (YPI2 - YPT1) 2 + (ZPT2 - ZPTl) 2 

ZCC-PT = 0.5 x (ZPTl + ZPT2) 



Sample Calculation (Refer to subroutine listing and flow 

chart, following pages) 

DIST = N y/’ (0.20000) 2 + (0. 004-7^3) 2 

= 0.200056 

ZCGPT = 0.5 x (0.00^3) 

= 0.002371 



LEV 'L 02 -V V . 6*> « M 





CO; 


V I Lf 3 X T I ! \ S • - NSNF = 


'•AIN , VO r ? L I 1 F 0 \ T = S 5. S ./JkCE ~t SCO, ; , TL I S T 


! S v 

| I S N i 


">00 2 

0>'0 5 


9 si • i.Tna f ( 2 7 X , 1? 
S:\0 (n,vOL) . 


, / \ , I _ • 1 7 < r 1 1 . , >\,'*l0.‘O 
;o;i, 11, YPT 1 , 79 i 1 


I S\ 
I SO 


j o 6 *■* 
j 00 s 


• i T 2 0 _ -V. ) ( t — l ) 

01 ST = SO- T (( 


JSPG2 , 12, Y9T2 , / ? T 2 

r > !2 - Y? T l )'*#2 S ( Z P T 2 - Z J T1)**2) 


I S 1 
I Si'. 
IS\ 
I S'i 

i s\ 

I SN 


OOOo 
OOu l 
00 08 
000 J 
■ ),[•' 
0 012 


zc so r = o.s * 

qr.4 (-Jk.'AT (ImO, V 

»i r i i e ( o »Vo + y 
_WA [TE_( 7 l 7X[_ 
IF ( (NOS L 0 2 - 
n' i j F G 1 =Ni . S -G2 


( / °T 1 0 Z P T 2 ) 

H SES1V !l ,! >,VH •->9li\iT , 12, M?X,F 19. 6)) 

i J s’ f G 1 , I 1 7 Y 0 T 1 , / -J f r , 01 ST , ZCGP' T 
"XSGi , I 1 , Y2T1 , ZPTl , J ] ST , ZCGP T 
0 9) . F ). 0 ) j.j TO 9 i [ 


I SN 
I SN 
I SN 
I SN 


001 \ 
0 0 1 *> 
0 0 1 *5 


11 = 12 
YOT 1 = /PT 2 
Z 2 f 1 = /XT 2 
G) TO 902 




I S'I 
1 S'i 


001 / 
0010 


911 9 1 S T - 0.0 

V S ! T F ( -> , 9 n 4 ) 


■SFG2 , I 2 , Y ° T 2 , .1 P f 2 , J I S T , 7. P T 2 


1 S.X 
I SN 
I SN 


001 -3 

002 0 
0 0 2 1 


-VM fc ( Z , OOG ) 
SPJP 

■ F.'ii 0 


*i‘ S t G 2 , 1 ’, YPT2 ,ZP T2 , )IST,Z?T2 
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Determine the dis- 
tance between two 
points and the height 
of the mid-point 
above the base line. 



FIGURE XII 



SUBORDINATE PROGRAM PTLGTH FLO’.-/ CHART 
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K. SUBORDINATE PRO GRAB WTSHCD 



1. DESCRIPTION 



Introduction 



Subordinate program WTSMOD calculates the total 
girth, plating weight, no men t of inertia, and location 
of the neutral axis for the nidship section plating. 

The calculation of the section modulus is based on the 

following equation: QQ 

' - ? n - elkom 2 - (A3SAPT :c:oi.in) 

AMD1Z - 2.-0 BL110M - ARE APT ZCOORD 

The output of PTLGTH is used as an input to WTSMOD. 
Each small segment between points on the girth is treated 
as a rectangular segment with a width equal to the speci- 
fied thickness of the plating. The component values used 
in the calculation of the section modulus are stored in 
Subroutine PI II NEE for eventual use in Ilain Program RUN- 
SCORE. 



Inputs 



Symbol 

PTDATA(I, J ,1) 
PTDATAd , J ,2.) 
PTDATA(I,J,3) 



Meaning 



Half-breadth of point (I,J). 
(Feet) 

Height of point (I,J) above 
base line. (Feat) 
Distance from point (I.J) to 
next point. (Feet; 
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Symbol 
PTDATA(I , J 

WP2RIH 

TEL 

Calculated Items 
Symbo l 

Utm i i m 

GIRTH 

- AA 

BB 

Output 

Symbol 

WTPRFT 

GIRX2 

BLMOK 

AREAPT 

XMOMIN 

XMD1K 

XHD1D 

ZHAX 



Meaning 

Height of midpoint of PTDATA 
above base line. 

(Feet) 

Weight of the structural ma- 
terial. (Pounds per inch 
thickness of a one square 
foot plate) 

Plating thickness. (Inches) 



Keaninr 



Total distance between points 
for the half breadth. 
(Feet) 



Intermediate 

culating 

Intermediate 

culating 



value used in cal- 

xmomim. 

value used in cai- 
XHOMIIT . 



Ilea n 3 n? 



Too 



Total weight of the plating. 
(Pounds or Tons per foot) 
al circumference of the 
midship section plating. 
(Feet) 

'Moment of the plating about 

the base line. (In. 2 Feet) 
Cross-sectional area of the 
plating. (In. 2 ) 

Moment of inertia of the platin; 
about the base line. (In. 2 
Ft. 2 ) 

Section modulus 
(In. 2 Feet) 

Section modulus 
(In. 2 Feet) 

Height of the center of gravity 
of the plating above 
base line. (Feet) 

Moment of inertia of the 



at the keel, 
at the deck. 



:he 



aboi 



SHAX. (In. 2 Ft. 2 ) 



pi ating 



XI HER 
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Samole I nput/ Out nut (Computer test run) 



Input : 



a 



Output 



PTDATACl, 


J,l) PTDATACl,!, 2) 


PTDA 


TA C I , J , 3 ) 


a j=.i 0.0 




• 0.0 




5.0 


2 3.0 




4.0 




5.0 


3 6.0 




8.0 ' 




5.0 


4 9.0 




12.0 




5-0 


5 12.0 




16.0 




0.0 


PTDATACl, 1,4) 


2.0 


Feet 






PTDATACl, 2, 4) 


6.0 


Feet 






PTDATACl, 3, 4) 


10.0 


Feet 






PTDATACl, 4, 4) 


14.0 


Feet 






PTDATACl, 5,4) 


0.0 


Feet 




J 


WP3RIN 


40.8 


Pounds per 


in. 


per sa. f 


TEL 


0.25 


Inches 






WTPRFT 


408.0 


Pounds per 


foot 




GIRX2 


40.0 


Feet 






BLMOM 


. 480.0 


In 4 Ft. 






AREAPT 


60.0 


In 2 






XMOMIr! 


5120.0 


In.? Ft. 2 






XMD1K 


320.0 


In.? Ft. 






XMD1D 


140.42 


In. 2 Ft. 






ZNAX 


. 8.0 


Feet 0 






XIHER 


2560.0 


In. 2 Ft. 2 







Funds. mental Equations 

GIRTH = GIRTH + PTDATACl, J, 3) 

WTPRFT - 2.0 x GIRTH x WPHRIIT x THL 

GIRX2 = 2.0 x GIRTH 

AA = O.O 8333 x THL x PTDATACl, J, 3 ) 

rp _ mTT-i ? „ fPTDATACl+1.1,1.) - PTDATACl, J,l )\ 2 
BB - TIE x PfDATAtT^I) 

+ 144. x (PTDATACl+ 1 , 1 , 2 ) - PTDATACl ,J ,2 ) ) 2 
BLMOM = BLMOM + 

12 . x TEL x PTDATACl, J, 3) x PTDATACl, J, 4) 

AREAPT = 12. x GIRTH x THL 

XMOHIN = XMOHIN + O.O 833 x AA x 33 + 

12 . x TEL x PTDATACl, J, 3 ) x PTDATACl ,J,4 ) 2 

XMD1K = 2.0 x ( BLHOl£ - AREAPT x X/CHIH) 

\ . BLMOM. / 
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BDIL' = 2.0 x 

ZI;AZ = 

XIR 2 E 



BL]-:oi: 2 



ARRAPT XKGEIII 



BLROM - 26.23125 x AREAPT 



BLIIOK 

AREAPT 

XRD 1 K x ZTIAX 



Sample Calculation 



XHIER = 



(Refer to subroutine listing and flow 
chart, following pages; 




MUV • 66 



OS/ 3 60 FORTRAN H 



COMPILER OPTIONS 



M r - 



MAIN, OP r = OC,L I'1ECNT=50» SOURCE 



BCD, MOL 1ST , DECK, LOAD, M 



002 

003 

004 

005 

006 
007 

ooa 

009 

010 
on 

012 

013 

014 
G15 
016 
018 

019 

020 
021 
022 
023 
0 24 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 
036 

039 

040 

041 

042 

043 

044 

046 

047 
043 



DIMENSION PTDATA (30,10,4) 

900 FORMAT (2F2C.7) 

901 FORMAT ( 2 3 X , 4 ( 2 X , F 10 . 6 ) ) 

DO 907 I = 1, 29 

DO 907 J=l, 10 

READ (5, 901) P TDA T A ( I , J , 1 ) , P TDATA ( I , J , 2 ) , PTDAT A ( I , J , 3 ) , 

1 PTDAT A( I , J ,4) 

907 CONTINUE 
I = 30 
J = 1 

READ (5, 901) PTDATA( I » J , 1 ) , PTDAT A ( I ,J>2) , PTDATA ( I , J , 3 ) , 

1 P TDAT A ( I , J ,4) 

DO 910 J = 2, 10 
DO 910 K = 1, 4 
910 PTDATA { I , J , K) = 0.0 
888 READ (5,900) WPERIN, TH1 

IF {{WPERIN - 100.) .GT. 0) GO TO 999 

84 FORMAT (*1 PLATING THICKNESS =',F10.6,* INCHES') 

85 FORMAT (' WEIGHT =',F10.6,' POUNDS PER SQ. FT. PER INCH THICKNES 

IS') 

' WRITE (6, 84) TH1 

GIRTH = 0.0 _____ 

DO 800 I = 1 , 30 
DO 800 J = 1, 10 

800 GIRTH = GIRTH C PTDATA ( I , J , 3 ) 

WTPRFT = 2.0 * GIRTH * WPERIN * TH1 

801 FORMAT ( • 0 PLATING WEIGHT =*,F20.7,' POUNDS PER FOO T '» 

802 FORMAT (' PLATING WEIGHT =', c 20.7,' TONS PER FOOT'! 

803 FORMAT ( '4 TOTAL MIDSHIP SECTION GIRTH =' , F 1 5 . 7 , ' FEET') 

GIRX2 = 2.0 * GIRTH 

WRITE (6,803) GIRX2 
WRITE (6,801) WTPRFT 
WTPRFT = WTPRFT / 2240~. 

WRITE (6, 302) WTPRFT 
" WRlte (6,85) WPERIN 
BL MOM = 0.0 

ARE A^T = GIRTH * TH1 * 12.0 
00 400 I = 1, 29 
DO 400 J = I, 10 

400 BLMOM f BL MOM & 12. * TH1 * PTDATA ( I , J » 3 ) * PTDATA (I,J,4) 

XMOMIN" = 0.0 
DO 500 I = 1, 29 
DO 500 J = 1, 10 

AA = 0.083333 * TH1 * PTDATA (I,J,3) 

IF ( ( J - 10) .ME. 0) GO TO 501 

B8 = ( TH1**2)*( ( PTDATAJ I 81 , 1 , 1 )_-PTDATA{ I , J, l ) ) /PTDATAt I , J, 3) )**2 8 
1 ( ( PTDATA! It. 1 ,’l , 2) - PTOATA( I , J , 2 ) ) **2 ) * 144. 

GO TO 600 

501 B3 = ( TH1**2 ) * ( ( PTDATA ( I , J 81 , l ) - P TDATA ( l , J , 1 ) ) /PTDATA ( I , J , 3 ) ) **2 



- 1 L 6 7 

* 

1 £ 144. - (PTD'TAl I t Jf.1,2) - P TQATA ( I , J , 2 ) ) **2 



i049 


600 


X MOM IN 


CO 

o 

• 

O 

II 


3 3 & A A $ 6 d £ 


X 


MO 


MIN d 


12 


, * 


PTDAT A ( 


i f 


J 1 


, 3 ) 


* T H 1 * P 


TOAT A 






1 4 


) **2 




























1050 


500 


co m r [ f * 


UE 




























051 




XMO IK 


= 2.0 * 


( ( ( 3LM0 •)** 


2) 


- 


( ARE 


APT 


* 


X MOM IN) 


) 


/ 


BL 


MOM ) 






052 




XMDIO 


= ( ( ( S L M 


0 r 4 # ^ 2 ) — ( 


AR 


EA 


P T * X M 


0-1 1 


N ) ] 


1 / ( 3LM0 


A 


- 


26 


.23124 


7 








1 * A K h 


APT)) * 


2,0 


























053 


304 


FORMAT 


CO SE 


CTION MOOULU 


S- 


-KEEL 


- 1 


, F2 0 . 7 , ' I 


NCHE 


: S* 


*2 FE 


ET ’ 


) 


054 


305 


FORMAT 


CO SE 


CTION MUOU 


LU 


$- 


-OFCK 


- I 


, F20 .7 , • 


INCHES 


**2 FE 


EC 


) 


055 


307 


FORMAT 


( *0 MO 


r-1 ENT OF IN 


ER 


T I 


A IS' 


» F 2 


0.7,' INCH 


ES 


j. j 

-i* -i 


*2 


' FEET* 


*2 ' 


) 


055 




ZNAX = 


3 LOOM / 


AREAPT. 






. 




















057 




XINER 


= XMO IK 


* ZNAX 


























053 




WRITE 


(6,307 ) 


XINER 


























059 


306 


FORMAT 


( ’0 NEUTRAL AXIS 


I 


S' 


, F 2 0 . 


7, ' 


FE 


:ET A 30V 


E 


BASE 


L INF' 


) 




060 


401 


FORMAT 


( '0 BL 


MuM = ' , F20 


.7 


, ' 


FT 


IN* 


*2 1 


' ) 














061 


402 


FORMAT 


( *0 ARE 


APT =• , F20 


.7 


t ' 


I N* * 


2' ) 


















062 


40 3 


FORMAT 


( ' 0 XMO 


MIN = * , F20 


.7 


» ' 


F T** 


? 


IN**2* ) 














063 




WRITE 


( 6 » 4 C l ) 


31 MOM 


























064 




WRITE 


(6,402) 


AREAPT 


























065 




WRITE 


(6,403) 


X MOM IN 


























066 




WRITE 


(6,306) 


Zi'JAX 


























06 7 




WRITE 


(6, 304) 


XMO IK 


























063 




WR I TE 


(6, 305) 


XMO 10 


























069 




GO TO 


338 




























070 


999 


STOP 






























07 r 




END 
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a 




Determine the plating, area 
and raids hi o section 
girth. 



Determine the required 
values to permit the 
solution of the equa- 
tion for XIITER. 



Calculate: 

XMD1K, XKD1D, 
ZNAX } and XIITER 



Determine the net midshi 
section characteristic 






C STOP ^ 



FIGURE XIII 

& 

SUBORDINATE PROGRAM WT3H0D FLOW CHART 
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L. SUBORDINATE PROGRAM TSHAPE 
1. ' DESCRIPTION 

Introduction 

Subordinate program T3IIAPE calculates the structural 
characteristics of vide flange sections cut to a T-section. 
For the purposes of calculating the maximum and minimum 
moments of inertia and the cross-sectional area, it is 
assumed that the flange is cut off at a distance 0.125 



inches 


from the web. 


- 


Innuts 




* 




Symbol 


Meaning 




SHAXI(I) 


Maximum moment of inertia of the 
original member, about its 
neutral axis. (In. ) 




sima (i) 


Minimum moment of inertia of the 
• original member, about its 
neutral axis. (In. ) 








SAREA(I) 


Cross-sectional area of 0 the ori- 
ginal member . ( In . ) 




SFLGW(I) 


Flange vidth. (Inches) 




SFLGTH(I) 


Flange thickness. (Inches) 




SDEPTH(I) 


Web depth. (Inches) 




SWEBTH(I) 


Web thickness. (Inches) 




SCOST(I) 


Acquisition cost* (Dollars/Foot 
length) 
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. Items 




Symbol 


Meaning 


51-1 


Moment of the cut member about 




the cut flange. (In. 3) 


SA 


Cross-sectional a^ea of the cut 




member . ( In . ) 


SI 


Moment of inertia of the cut 




member about the cut flange. 
(In. ) 


S MAXI (I) 


Maximum moment of inertia of the 




cut member about its neutral 
axis. (In. 4 *) 


SMI XI (I) 


Minimum moment of inertia of the 




cut member ,, about its neutral 
axis. (In. ‘ ) 


SAHEA(I) 


Cross-sectional area of the cut 
member. (In. ) 


SFLGW(I) 


flange width. (Inches) 


SFLGTH(I) 


Flange thickness. (Inches) 


SDEPTH(I) 


Web depth. (Inches) 


SWEBTH(I) 


Web thickness. (Inches) 


SCOST(I) 


Accuioition cost. (Dollars/ 




Foot length) 


VCGCI) 


Distance of the neutral axis 



fron the cut flange. (Inches) 



Sample In cut /Cut out 
Input : 



Output : 



(Computer test run) 



SMAXI(l) 


21.70 


Tn l <- 

J 4 
In. I 


SI-UNI (1) 


2.89 


SAHSA(l) 


3-53 


In . 2 


SFLGW(l) 


4.00 


In. 


SFLC-TH(l) 


0.279 


In. 


SDSPTH(l) 


6*00 


In. 


SWEBTH(l) 


0.23 


In. 


SCOST(l) 


2*00 


Dollars/Foot 


SMAXI(l) 


10 . 56 - 


In.!* 

In.£ 


SKIM I (1 ) 


1.40 


SAREA(l) 


2*55 


In . 2 


SFLGW(l) 


4.00 


In. 


SFLGTH(l) 


0.279 


In. 


SDEPTH(l) 


6*00 


In. 


SWBBTH(l) 


0.23 


In. 


SCOST(l) 


2.00 


Dollars/Foot 


VCG(l) 


4.10 


In. 
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Fundamental Eauations 



VCG(I) 



0.5 x SDSPTH(I) x SARBA(I) - 
0.5 x SFLGTH(I) 2 x 

(SFLGW(I) - .25 - SW23TH( I) ) 

sIreaci) - sflgthOTx 

_ (SFLGW(I) - .25 - SWEBTH(I) ) 



SH = 0.5 X SDEPTH(I) x SARZA(I) - 

0.5 x SFL&TH(I) 2 x (SFLGW(I) - .25 - SWEBTHd)) 



SA = SAREACI) - SFLGTH(I) x (SFLGW(I) - .25 - SWE3TH(I)) 



SI = SKAXI(I) + SAHEA(I) x (0.5 x SDBPTH(I) ) 2 - 

0.0833 x (SFLGW(I) - .25 - SWE3TH(I) ) x.SFLGTH(I)3 
- (SAREA(I) - SA) x (0.5 x SFLGTH(I)) 2 



SHAXI(I) 



VCG(I) x ((SA x SI) - S!l 2 ) 

Sii 



SKINI(I) = SHIBI( I) - 0.1667 x SFLGTH(I) x (0.5 x 

(SFLGW(I) - .25 - SWEBTH(I)))3 _ 
(SAREA(I) - SA) x (0.125 + 0.5 x SWEBTIi(I) 
+ 0.25 x (SFLGW(I) - .25 - SWEBTH(I))) 2 - 

SARSA(I) = SARSA(I) - SFLGTK(I) x 

(SFLGW(I) - .25 - SWE3TH(I) ) 



Samel e Calculation 



VCG(l) = -■- £ 

'= ^-.10 



(Refer to subordinate program listin' 
and flow chart, following pages) 

6. x 3.53 - 0.5 x .279 2 x 3.52 
3.53 - 0.279 x 3o2 



smaxi(i) 



21.70 - 0.1667 X 1.76 x O. 279 3 r 
(0.279 x 3*52) x (3.0 - 0.1395 ) 2 
10.56 

2.89 - 0.1667 x 0.279 5 1.76 3 - 

(0.279 x 3.52) x 1.12 d 
1.40 



SI-UNI (I) - 



32 MUV . 53 

CCHPl LER OP n 1 O - 

0002 



OS/ 360 FORTRA i H 

!A I M , jo T ='?r , L I REC^T =50 , SO'J RCE ♦ BCD , MOL I S T , HE Z< , L D \0 



000 3 



0005 



0005 
000 7 
0008 

0006 



' - ^3 I Oi, S i aK i ( 6 ) , Si v il 0 I ( 6 ) , SA«.£A { 9 ) , SFL G.*. 1 ( 0 ) , SFLGTh ( g ) t S0£P H { 9 ) 

1 S-»c i r H{ 9 ) WCG ( 9 ) r SCO ST { 5 ) . . _ 

400 RJ^/mXT (SF10.5) 

401 I H E -K T I A ’ , 3a, ’ * 1 1 H . f \ FR T I m • , 7 X , • AR E A • , 7 X t 

1 ’ h LAAGE uIOTH’, 4.X, • THICKNESS' ,6X, 1 „E3 DEPTH' , 6 X » ' THICKNESS’ , 

2-jgtx, 'COST* ) 

402 FORMAT ( 1a,2(3X, * IV**4 M^X.'SO. INCHES ', 7X, » INCHES' , 

1 • ti\CH£-$* ) ,7X, ’ DOLL-ARS/ FT-. • ) 

WRITE ( o » 4 0 I ) 

- - - -rvk ITt 16,4 02 ) 

00 403 1 = 1,9 



CC 1 0- 
0011 
Ctti-2.- 
0013 



(-5,40 0) -SMAx I ( I ) , SMI HI ( I > , SARtA ( I ) , SFLGW ( I ) ,SFLGTH( [ ) ,S0tPTH 
1 ( I ) , S'aESTM I ) , SCO ST ( I ) 

40 3 CONTINUE .. - 

404 FORMA! ( 1HC , 4,< , F 10 . 5 , 7 { 5X , F 10 . 5 ) ) 

03-4 05-1 = 1,0 



0014 

0015- 

0016 



0017 



-00-1-8- 

0019 



0020 

0021 



WkITc ( o , 4C 4 ) S^AXI ( l ) , S M ! N I ( i ) , S A R E A ( I ) ,SFLGn( I) , SFLGTH ( I ) , 

--L--SOEP-TO.U ).,SwE£Tii( I ) , SCOST ( U 

405 CUM f I NOE 

03 406 I =. 1 ,J 

V C G t I ) = {(0.5 * SDEPTH(I) * SAREA { I ) ) - (0.5 * (SFLGTH( I ) * * 2 ) * 

LIS FLO 6 (. I 1-0.2 5 - SWEET ri ( I ) ).) ) / ( SARfcAI I ) - ( ISFLGW ( I ) -0 .2 5-SWE3 T ri ( I ) ) * 

2 SFLGTHt III) 

_-04-=-S~HFA< I l# { U»-5< { SOEPTH( I.) ) -0*5* ( .SFLGTH { I ) *#2 UM-SFEGWI I ) -0*25- 
1SWE5TH(1)} - 

— SA- = — SAR EA ( I 1 - -( SFLGS { I ) .--0.25 - — S4*EB-TH( I ) ) *SFLGTH( I ) 

SI = S El A X I ( I ) d SA REA ( I ) * ( 0. 5* SDE PTH ( I ) ) **2 - 0 . 0 8 3 3 3 v ( SFL 33 { I ) - 

1 41.25 - SOFSTHl 1) ) =J- ( SFLGTMi I 5 :-*3) - ( SAREA ( I ) -SA) * ( 0 .6 £ SFLGTEK I ) ) 

2 **2 

S-TAX 1(1) .= — VCG ( I ) LUISA t-SI 1 ( SM*72 ) ) / SO ) 

SMINKI) = SMINI(I) - 0. 16657 *SFLGTH{ I ) * (0.5 * (SFLGW(l) - 0*25- 



0C22 

0023 

0024- 

0025 

-CQ26- 



-0027 

0026 



i--SWF.3TH{ ■1)11*7 3- ---( SAREA { I ) - SA ) * (0.125S 0 .- 5 * S W E 3 T H { I ) L 0.25 =i 
2 (SFLGW(I) - 0.2 5 - S WEB TH ( I ) ) ) * *2 
— SAFE A ( I 1 =-SA.RtA( I ) --CSFLGw(I) - 0.25 -SWEBTri ( I ) 1 * SFLGTHII) 

406 CONTINUE 

WRITE 06,-401 ) * 

/•/KITE ( h j 4 0 2 ) 

- -4 1 l -F1LR.M_A.T_ .( L5X-, SHAPE- VCG- l S- 1 , H 10. 7 INCHES FP.OH EDGF QF CUT FLA,' 

13E • ) 

OQ 4.3/ 1=1,9 



v,R II E ( o,4 04) S . -1 A X I ( I ) , SMINI ( I ) , SARF.A( I ) , SFLGW ( I ) , SFLGTH { I ) , 



1 SDfcP TH ( I ) , SWE dThC II tSCUSTU ) 



0029 

0030 

0031 
-0-032 



WRITE (6,411) VCG ( I ) 

40 7. C3.il 1 HUE. 

STOP 

... 5T4Q 
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Determine the cut shape 
VCG and preliminary 
values for connuting 
SliAXI(I) . 



Determine the not cut 
section area and mo- 
ments of inertia. 



FIGURE XIV 



SUBORDINATE PROGRAM TSKAPS FLOW CHART 
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M. SUBORDINATE SUBROUTINE COSTKL 



1 . DESCRIPTION 



Introduction 

Subordinate subroutine COSTKL is used to generate the 
total cost per foot length of the keel structure. The 
methodology and values used are explained at length in the 
description of main program COSTDATA. 



Inputs 

Symbol 

CKLG'TL 

CHCMNH 

FKTHCK 



Meaning 

Acquisition cost of the keel loi-- 
gitudinal. (Dollar s/Foo c) 

The cost of one man-hour of work. 
(Dollars) 

Thickness- of the flanges of the 
keel longitudinal. (Inches) 



Calculated items 



Symbol 



Meaning 



CCUTF 

CWELD 



Cost of cutting the keel flanges. 

(Dollars/Foot) 

Cost of welding the keel. 
(Dollars/Foot) 



Outnut 



Symbol 



Meaning 



CKB3L 



Total cost of the keel structure. 
(Dollars/Foot) 



Sannle Input /Out 'out 



(Computer test run) 



Incut: CKLGTL 

CHGKNH 
FKTHCK 

Output : CKEEL 



9.00 Dollars/Foot 
7.50 Dollars/Hour 
0.463 Inches 

27.56 Dollars/Foot 



Fundamental Ecus t ions 



COJTF = 0.2 x CHGMNH 

CWELD = 2.2748 x CHGMITH 



Sample Calculation (Refer to program listing and flow 

chart, following pages) 

COJTF = 1.50 

CWELD = 17.06 



CKEEL = 27.56 





JJ 7L.EQRM A T C 3 E 2 Q . .6 1 

READ (5,777 5 r KLGTL » FKTHCK » CHGMNH 

CALL COST XL (CKLG~L* FKTHCK » CHGMNH, CK EEL ) 

778 FORMAT (»1 ACQUISITION COST = ' » F10.6 ) 

119 FORMAT ( *0 CHARGE PER MANHOUR =' , F10.6) 

780 FORMAT (‘0 TOTAL KEEL COST ='»F10.&) 

WRI.T E ( S.tJJ 8.L. C K L G T L 

WRITE (6,779) CHGMNH 

WRITE. (6,780) CKE.El 

STOP 

END 

SUBROUTINE COSTKL ( CKLGTL ♦ FKTHCK * CHGMNH » CKEEL ) 
C . 



C CALCULATE THE TOTAL COST CONTRIBUTION OF THE KEEL STRUCTURE. 

C 



c 

c 


FIRST, CALCULATE THE COST OF CUTTING THE FLANGES. 




c 


CCUTF = 0.2 * CHGMNH 




c 

. c 


CALCULATE THE COST OF WELDING THE SHAPE TO THE PLATING. 




c 


CWELD = 2.274-8 * CHGMNH 




c 

c 


THE MAN HOUR CHARGES ALLOW FOR MAKE READY AND PUT' AWAY, 
ITSFLF, THE CONTINUOUS JOB ALLOWANCE, WIRE BRUSHING, ARC 


THE WELDING 
AIR, DYE 


c 

c 


PENETRANT, AND STRIP HEATER. 




c 

c 


CALCULATE THE TOTAL COST — ACQUISITION, PREPARATION, AND 


INSTALLATION. 


CKEEL = CKLGTL + CCUTF + CWELD 
RETURN 


/* 


END 




//G 


.SYS IN DD * 

9.00 0.775 7.50 
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» 




Determine the cost 
the keel member, 
foot length. 



FIGURE XV 



of 

per 



SUBORDINATE SUBROUTINE COSTKL FLOW CHART 
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